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本 书 适 用 于 中 华 学 习 机 、 苹果 机 及 其 兼容 机 系列 。 书 中 收集 
了 各 类 实用 程序 . 工具 性 程序 和 子 程序 近 百 篇 , 并 附 有 使 用 说 明 ， 
配 有 磁盘 ， 

本 书 不 但 提供 了 灵活 方便 的 编辑 工具 , 不 少 程序 还 可 成 为 软 
件 中 的 一 部 分 。 本 书 提 供 了 研究 监控 程序 . DOS 等 系统 软件 的 
工具 和 程序 的 编辑 技巧 , 对 于 有 一 定 基础 的 计算 机 爱好 者 , 具有 启 
发 意义 , 对 于 初学 者 来 说 , 很 多 程序 可 以 作为 学 习 BASIC 语言 或 
6502 汇编 语言 的 例题 , 同时 又 是 上 机 操作 的 指南 . 
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编者 的 话 


本 书 收集 的 百 余 个 机 器 语言 和 BASIC 语言 写 的 工具 小 
程序 , 都 是 很 有 实用 价值 的 。 内 容 包 括 :高 、 低 分 辩 率 图 象 的 处 
理 技巧 ; 文本 屏幕 灵活 使 用 ; 扩充 BASIC 语句 功能 ; 扩充 文 
字 、 图 形 在 屏幕 和 打印 机 上 的 打印 功能 ; 增强 磁盘 管理 能 力 等 ， 
还 包括 富有 特色 的 音响 程序 . 时 钟 程序 、 数 制 转换 、 数据 交换 
查询 、 排序 等 程序 以 及 程序 录 人 、 编辑 调试 各 方面 的 工具 
等 。 门类 之 广 , 几乎 涉及 此 类 微机 应 用 的 各 个 方面 。 愿 它 能 
成 为 您 的 好 帮手 。 

也 许 你 在 学 校 是 个 “苹果 迷 ”, 你 可 以 用 书 中 的 工具 绘 出 
美妙 的 图 形 或 制 成 图 形 表 , 配 上 动听 的 音乐 。 你 还 可 以 用 书 中 
的 工具 去 跟踪 DO S 的 工作 过 程 , 了 解 一 点 系统 程序 的 秘 
密 。 你 也 可 以 用 书 中 的 工具 在 几 十 K、 上 百 K 的 内 .外 存 中 
寻找 你 感 兴趣 的 数据 , 真是 其 乐 无 穷 。 

也 许 你 是 一 位 中 华 学 习 机 的 用 户 , 正在 为 不 能 灵活 有 效 
地 利用 它 而 发 多, 书 中 各 式 各 样 的 工具 将 为 您 带 来 方便 。 您 
可 以 用 机 器 码 简 易 输 入 器 .BASIC 自动 行 号 、 超级 软 键盘 
等 简化 您 的 程序 录 人 过 程 , 出 错 信息 补充 和 汉化 程序 及 
BASIC 编辑 工具 , 改进 列表 , 控制 光标 等 程序 又 将 大 大 有 助 
于 您 编辑 . 调试 程序 。 当 您 想 对 一 些 程序 进行 剪接 整理 时 ， 
MOVE、RENUMBER 等 程序 又 会 大 显 身 手 。 

您 也 许 是 一 位 教师 , 书 中 高 分 辩 率 图 形 的 各 种 处 理工 具 
会 使 您 的 教学 辅助 软件 画面 更 加 生动 活泼 , 富有 感染 力 。 


全 书 的 程序 各 具 特 色 , 各 有 所 长 , 其 中 钨 大 部 分 是 我 们 目 
已 编写 . 收集 和 整理 的 ， 有 的 已 见 诸 报刊 。 本 书 有 磁盘 提供 
广大 读者 。 在 编写 本 书 过 程 中 , 陈 志 国 、 内 宇和 孙 记 等 同志 做 
了 许多 工作 , 在 此 , 一 并 致谢 。 

由 于 我 们 水 平 有 限 , 书 中 难免 有 欠缺 之 处 , 诚恳 希望 读者 
予以 指正 。 


编者 1989 年 12 肖 
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怎样 输入 和 运行 本 书 的 程序 


如 果 你 已 经 会 输入 BASIC 程序 . 汇编 程序 和 在 监控 中 
输入 机 器 码 , 只 需 告诉 您 , 书 中 的 多 数 BASIC 程序 采用 的 是 
格式 化 列 清单 , 所 以 每 句 占 一 行 , 您 在 输入 时 不 用 跟着 书 上 程 
序 清单 换行 , 每 个 行 号 后 面 的 所 有 语句 输 完 再 按 回 车 , 即 一 个 
标号 只 能 一 次 回 车 

如 果 您 对 输入 机 器 码 及 输入 汇编 语言 程序 还 不 熟悉 , 请 
看 下 面 的 简介 
”本 书 中 的 机 器 语言 程序 以 两 种 形式 给 出 : 一 种 是 只 列 出 
单元 地 址 及 其 中 的 机 器 码 , 另 一 种 在 左边 列 出 地 址 和 机 器 码 ， 
右边 列 出 汇编 程序 。 这 两 种 形式 的 程序 都 可 以 直接 输入 机 器 
人 码 , 后 一 种 形式 可 通过 输入 汇编 程序 的 方式 输入 机 器 码 。 无 
论 哪 种 输入 方式 , 多 使 用 十 六 进 制 数据 , 初学 者 可 借助 本 书 数 
制 转化 程序 进一步 学 习 和 人 掌握， 程序 中 “ $ “开头 的 都 是 十 
六 进 制 数 。 


一 、 在 监控 中 直接 输入 机 器 码 


无 论 是 机 器 语言 还 是 一 些 参数 资料 , 在 机 器 内 部 均 为 代 
码 , 要 把 这 些 代码 送 入 机 器 内 适当 的 单元 既 可 以 在 “]" 提示 
的 BASIC 状态 , 也 可 以 在 “*" 提示 的 监控 状态 。 在 “]” 提示 
的 BASIC 状态 键 A 人 CALL- 151 便 可 进入 监控 状态 , 这 
时 键 人 地 址 接 胃 号 接 机 器 码 就 能 将 机 器 码 送 入 相应 单元 。 例 
如 键入 


* 300:A9 08 60 
则 把 $A9 送 入 $300 单元 , $08 送 入 $301 单元 , $60 送 
入 $302 单元 。 地 址 与 代码 之 间 是 冒号 , 代码 和 代码 之 间 用 
空格 。 一 次 可 以 输 一 个 或 多 个 代码 , 直至 输 完全 部 代码 。 在 
“中 运行 这 段 机 器 语言 程序 应 键 人 首 地 址 接着 字母 G 接着 
回 车 。 退 出 监控 加 BA SIC 可 用 CTRIC 接 回 车 命令 . 在 “ ] ” 
提示 的 BASIC 状态 可 以 用 POKE 语句 送 入 机 器 码 , 格式 
POKE  X,Y。X 代表 内 存单 元 地 址 , Y 代表 送 入 的 代 
码 。 请 注意 ,在 BASIC 状态 下 它们 必须 用 十 进 制 。 在 
BASIC 状态 下 也 可 以 用 “CALL 首 地 址 ”命令 调用 内 存 机 
器 码 程序 , 这 里 首 地 址 当然 也 要 用 十 进 制 。 例 如 *300G 命令 
对 应 ] CALL 768。 本 书 中 “机 器 语言 排序 又 一 法 ”就 
是 用 BASIC 程序 建立 机 器 语言 程序 再 调用 的 一 个 例子 , 另 
外 , 机 器 语言 程序 需要 的 一 些 参数 , 如 发 音程 序 中 的 音 高 、 音 
长 参数 等 也 需要 预先 送 和 人 参数 地 址 , 在 看 程序 说 明 时 , 应 注意 
这 一 点 。 
二 .汇编 语言 输入 简 法 


在 DOS3.3 系 统 主 盘 上 , 有 个 整数 BASIC 程序 , 其 中 
含有 一 个 小 汇编 程序 , 具体 用 法 如 下 : 

引导 完 系 统 主 盘 , 见 到 “]?BASIC 提示 符号 键 人 INT， 
进入 "> ”提示 的 整数 BASIC, 再 键 人 CALL- 151 进 人 
“各 监控 状态 , 接着 键 人 FE666G 进入 “!”, 即 小 汇编 状态 。 这 
时 就 可 以 一 句 一 句 地 输入 。 每 句 中 先 输 首 地 址 和 冒号 , 接着 
输 语句 内 容 并 回 车 。 如 果 输入 发 生 错 误 , 会 听见 一 声响 , 提示 
你 重 输 。 输 完 后 键 人 $ FF69G 可 退 到 “” 状态 , 再 键 人 
3D0G 回 到 “> ”整数 BASIC 状态 , 再 键 人 FP 便 回 到 了 


2 


“] ?BASIC 状态 。 
如 果 你 有 本 书 附 带 的 磁盘 , 只 需 用 一 个 LOAD 或 
BLOAD 命令 , 便 可 输入 BASIC 或 机 器 语言 程序 。 


1. 机 器 码 简易 入 和 由 


为 了 准确 . 迄 速 地 在 监控 状态 下 输入 十 六 选 制 的 机 器 ， 
特 提 供 了 本 程序 . 

(1) 使 用 方法 ; 

首先 将 $ 6, $ 7 存 人 起 始 地 址 。$ 6 存 人 低位 , $ 7. 
存 人 高 位 。 如 果 想 从 $ 6000 开始 , 则 键入 $ 6:00 60, 然 
后 再 键 人 300 G , 便 可 输入 了 。 退 出 时 只 须 按 ESC 键 。 匣 
再 键入 300G, 则 光标 出 现在 上 次 按 “ESC 键 的 位 置 上 。 
此 程序 只 接受 0 ~ 9,A ~ FE, 其 它 键 可 不 用 。<*- 后 退 到 任 
意 处 修改 , ~> 前 进 到 原来 位 置 。 

(2) 注 意 事 项 : 

由 于 本 程序 占用 了 $ 300 处 , 因此 , 输入 机 器 码 时 绝对 
不 能 从 $ 300 开始 。 解决 办 法 是 用 MOVE 程序 将 本 程序 
移 走 。 

本 程序 在 磁盘 中 的 文件 名 : KEY IN 


床 素 六 

FILE NAME: KEYIN 

*300. 3D9 

0300-- 20 43 03 20 34 03 A9 00 
0308 一 85 OA 20 4F 03 AS D1 0A 
0310-- OA 0O0A OA 85 09 E6 0A 20 
0318 一 4F 03 A5 D1 05 09 A0 00 
0320 一 91 06 E6 06 D0 02 E6 07 


0328 一 2 79 03 20 8E 
0330 一 03 4C 03 03 AS 
0338 一 85 08 OA 18 65 
0340 一 85 24 60 A5 07 
0348 一 41 FE9 A9 BA 4C 
0350 一 0C FD C9 9B F0 
0358-- F0 2F C9 95 F0 
0360-- B0 ED C9 Cl1 90 
0368-- D0 0A C9 BA BO0 
0370-- 90 DD E9 BO 85 


0378 一 ED A5 


0380 一 68 
0388 一 60 
0390 一 79 
0398 一 A5 
03A0 一 B1 
03A8 一 03 
03B0 一 B1 
03B8 一 68 
03C0 一 0A 
03C8 一 OF 
03D0 一 85 
03D8--03 


家 


06 29 07 
69 06 4 
00 AS OA 
20 1A FC 
D0 02 C6 
29 F0 85 
24 68 68 


29 OF 05 : 


4C 03 03 
09 68 68 
1C 03 B1 
E6 24 68 


A0 


人 和 


2 。 实 用 工具 程序 M OYVE 


在 学 习 机 的 众多 软件 及 工具 软件 中 , 很 大 一 部 分 是 用 机 
器 语言 编写 的 , 这 类 程序 必须 装 人 内 存 并 存 贮 在 适当 的 位 置 ， 
才 可 正常 运行 。 下 面 这 个 程序 可 自动 将 一 机 器 语言 程序 从 某 
一 段 存 贮 范围 移 到 另 一 范围 , 并 可 保证 其 正常 运行 。 
(1) 使 用 方法 : 
将 要 移动 的 程序 首 . 末 地 址 及 新 的 首 地 址 依次 按 低 位 在 
前 , 高 位 在 后 的 原则 存 人 内 存单 元 $ 1000 ~ $ 1005 处 ， 
然后 , 键 人 :*1010G ! 
(2) 注意 事项 : 
移动 的 内 容 必须 是 指令 , 不 可 为 数据 , 否则 会 出 现 一 些 错 
误 , 使 移动 后 的 程序 不 能 正常 运行 。 
本 程序 在 磁盘 中 文件 名 为 : MOVE 
床 率 床 
FILE NAME: MOVE 
41010, 112A 
1010- AD 00 10 85 42 AD 01 10 
1018-- 85 43 AD 02 10 85 1B AD 
1020- 03 10 85 1C AD 04 10 85 
1028-- 06 AD 05 10 85 0 A5 42 
1030- C5 06 A 43 E5 07 9 43 
1038- A5 42 E5 06 8D 08 10 A5 
1040- 43 E5 0 8D 0 10 A0 00 


1048-- 了 B1 
ji050 一 E6 
1058 一 ES 
1000 一 9 
10608 一 07 
1070 一 革 
1078 一 11 
1080-- 8D 
1088 一 8D 
1090 一 8 
1098 一 8 
10A0 一 1B 
10A8 一 06 
10B0-- 1B 
10B8 一 FF 
10C0 一 DE 
10C38 一 8D 
10D0 一 10 
10P8 一 A2 
10E0 一 2F 
10E8 一 AA 
10F0 一 01 
10F8 一 Bl1 
1100 一 18 
1108 一 Bl 
1110 一 AS 
1118 一 65 
1120 一 B7 
1128-- 60 


率 


A9 


CD 


8A 


42 
43 


91 
42 
07 


10 


CD 06 10 9%0 B0 


3. 定义 功能 键 


在 中 华 学 习 机 上 市 之 前 , 曾 出 现 过 许多 类 型 的 荧 果 兼容 
机 , 它们 之 中 有 不 少 键盘 上 都 具有 缩写 键 功能 , 即 同 时 按 下 其 
几 个 键 即 可 出 现 一 串 字 符 , 从 而 使 用 户 免 去 从 键盘 上 一 个 一 
个 字符 输入 的 辛苦 。 中 华 学 习 机 的 键盘 也 没有 配 上 这 种 功能 ， 
而 下 面 这 个 程序 却 能 弥补 这 一 不 足 。 
(1) 使 用 方法 : 
键 人 本 程序 后 ,在 BASIC 状态 下 用 CALL32768 或 
在 监控 中 打 和 人 8000G 即 可 运行 。 这 时 屏幕 上 出 现 一 个 英文 
菜单 , 有 如 下 七 个 功能 : 
@ 列 出 功能 键 及 其 对 应 功能 (CTRE 字 符 用 反 白 显示 )， 
@@ 定义 功能 键 (ESC- I. 了 开 、M 不 可 被 定义 ) 。 
@ 显示 出 定义 后 程序 的 起 点 及 长 度 , 以 便 存 人 磁盘 供 
以 后 调用 。 
@@ 转换 模式 一 直接 或 ESC 式 ( 详 见 后 面 说 明 ) 。 
@ 删除 某 一 功能 键 。 
删除 所 有 功能 键 。 
@) 退出 菜单 , 返回 BASIC 状态 。 
(2) 注 意 事 项 : 
所 有 提示 信息 均 为 英文 , 本 程序 不 能 在 中 文 状态 下 工 
作 . 定义 好 功能 键 之 后 , 有 两 种 输入 方 式 :( 用 第 4 种 功能 控制 ) 
@ 直接 式 。 直 接 按 功能 键 , 即 可 出 现 其 功能 。 这 种 方式 
最 好 利用 控制 字符 作为 功能 键 , 否则 会 给 输入 带 来 一 些 不 必 


S 


要 的 麻烦 。 

@ ESC 模式 。 使 用 功能 键 时 必须 先 按 ESC 键 , 待 光 
标 变 为 反 白 加 号 后 再 按 功能 键 。 当 按 下 CTRL- RESET 
键 后 便 会 脱离 本 程序 , 若 想 再 进入 本 程序 时 , 可 按 & 键 。 

本 程序 在 磁盘 中 文件 名 :SUPER KEYBOARD 


床 率 率 


FILE NAME: SUPER KEYBOARD 

*8000. 8680 

8000- 38 66 EF A9 80 85 39 A9 
8008-- 26 85 38 20 EA 03 A9 4C 
8010- 8D F5 03 A0 8 84 74 8c 
8018 一 F7 03 A9 03 85 73 8D F6 
8020- 03 46 EE 4C 92 80 85 ED 
8028-- 24 EE 30 53 2C 0 co 10 
8030- FB 9%9! 28 20 6 83 c9 9B 
8038-- Do 2F A9 2B 91 28 20 65 
8040-- 83 48 A5 ED 9%1 28 68 c9 
8048- 9B D0 03 4C oc FD 20 8E 
8050-- 83 9%0 10 A8 B9 48 FA 20 
8058-- 97 FB A4 24 Bl1 28 85 ED 
80600- 4C 3A 80 24 EF 30 0 10 
8068- 09 24 EF 30 05 20 BB 83 
8070- B 03 A4 24 60 86 ED 20 
8078-- 9E 83 38 66 EE A6 ED A0 
8080- 0 Bl106 30 04 46 EE09. 
8088-- 80 E6 06 D 02 E6 07 A4 


8090 一 24 
8098 一 46 
80A0 一 DB 
80A8 一 F2 
80B0 一 8E 
80B8 一 DB 
80C0 一 20 
80C8 一 B8 


80D0-- 8E _FD 


80D8 一 D0 
80E0 一 03 
80E8 一 68 


80F0 一 B1 DO 


80F8 一 D0 
8100-- 4C 
8108 一 D5 
8110 一 DB 
8118 一 20 
8120-- 05 
8128 一 A9 
8130 一 48 
8138 一 A0 
8140 一 00 
8148 一 65 
8150 一 C9 
.8158 一 8A 
8160-- 41 


8168 一 FE 
8170-- 83 
8178-- 85 
8180-- 81! 
8188-- 91 
8190-- 9% 
8198-- 06 
8LA0-- EB 
81A8-- 85 
81B0- 20 
81B8-- A5 
81c0-- A0 
81C8-- EB 
81D0 一 85 
81D8--8D 
81E0-- 99 
81E8-- C9 
81F0- 8E 
81F8-- DB 
8200-- 02 
8208 一 88 
8210-- 8E 
0218-- D2 
8220-- SC 
8228-- FD 
8230-- 14 
8238-- 85 


83 
06 


三 名 总 区 多 广 站 十 和 和 2 二 总 吕 


8240 一 E8 
8248 一 48 
82S0 一 68 
8258 一 83 
8200 一 Bl 
8268-- C9 
8270 一 28 
8278 一 FD 
8280 一 05 
8288 一 83 
8290 一 A2 
8298 一 A9 
824A0-- 8E 
82A8-- DB 
82B0 一 83 
82B8 一 A5 
82C0-- A6 
82C8 一 A5 
82D0 一 8E 
82D8 一 SB 
82E0-- DB 
82E8-- 20 
82F0-- D0 
82F8 一 C8 
8300-- 45 
8308-- 8E 
8310 一 DB 


86 
A0 


因 吕 十 引 


03 


10 


8318 一 8E 
8320 一 DB 
8328 一 02 
8330 一 C9 
8338 一 88 
8340-- 37 
8348 一 04 
8350-- AD 
8358 一 02 
8360-- 29 
8368-- 10 
8370 一 30 
8378 一 DB 
8380 一 20 
8388 一 3A 
8390-- 9 
8398 一 D0 
83A0 一 85 
83A8 一 98 
83B0-- 02 
8388-- D0 
83C0-- 85 
83C8 一 03 
83D0 一 60 
83D8 一 D5 
83E0-- BE 
83E8 一 D8 


0OE 20 3A 
92 80 A2 
BD 37 84 
4C 2D 83 
29 83 HBD 
C9 8D F0 
A2 27 A9 
10 FA A9 
A0 B0 02 
AD 00 C0 
60 24 EF 
F6 20 3A 
83 A9 FD 
A9 01 20 
60 ，C9 C9 
04 c9 cc 
60 A9 86 
06 A2 00 
E6 06 D0 
B0 F4 88 
48 B9 80 
80 85 F0 
60 18 6 
BE 00 C6 
CE CE BD 
D2 C5 D3 
C5 .CE CT7 


83F0 一 D4 
83F8-- D2 
8400 一 00 
8408 一 C6 
8410-- Cl 
8418-- Cl 
8420 一 00 
8428 一 A0 
8430 一 A0 
8438 一 AE 
8440 一 D9 
8448 一 CE 
8450 一 AE 
8458 一 CS 
8460 一 C9 
8468 一 C9 
8470-- C5 
8478 一 CC 
8480 一 AE 
8488-- CD 
8490 一 C5 
8498 一 CE 
84A0-- AE 
84A8 一 CC 
84B0 一 C9 
848B8 一 D5 


84C0-- 8D 
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84C8 一 
84D0 一 
84D8 -- 
84E0 一 
84E8 一 
84F0 一 
84F8 一 
8500 一 
8508 一 
8510 一 
8518 一 
8520= 
8528 一 
8530 一 
8538 一 
8540 一 
8548 一 
8S30 一 
8558 一 
8560 一 
8568 一 
8570 一 
8578 一 
8580 一 
8588 一 
8590 一 
8598 一 


D9 


99 


Cl 


8SA0 一 
8SA8 一 
85SB0 一 
85B8 一 
8SCc0 一 
8SC8 一 
8S$D0 一 
85D8 一 
8SE0 一 
8$E8 一 
8SF 0 一 
8SF8 一 
8600 一 
8608 一 
8610 一 
8618 一 
8620 一 
8628 一 
8630 一 
8638 一 
8640 一 
8648 一 
8650 一 
8638 一 
8660 一 
8608 一 
8670 一 
8678 一 
8680 一 


9 上 segRe 上 ess2s23233233535 


十 & 章 吕 Q 只 8 品 昌 品 


CC 


sagq8ssssssssssssS 


〇 
全 


ds3223232223235353 


iD 


RS2R28S 


SS23222323 


D2 


人 


| 
己 
号 
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4. 在 浮 点 BAsIC 中 使 用 目 动 行 号 


在 整数 BASIC 中 有 一 个 自动 行 号 的 功能 , 而 在 浮 点 
BASIC 却 没有 。 下 面 这 段 小 程序 可 以 使 浮 点 BASIC 具有 
自动 行 号 功能 。 

(1) 使 用 方法 : 

键入 程序 后 ,用 CALL770 便 能 有 自动 出 行 号 的 功能 ， 
行 号 从 100 开始 , 每 次 加 10。 退 出 可 用 CTRL- X 键 。 
若 用 CALL787, 则 行 号 从 上 次 退出 时 继续 .。 在 CALL787 
之 前 , 允许 预 设 行 号 , 在 十 进 制 下 ,分别 向 单元 898,897,896， 
895 输入 该 行 号 个 位 、 十 位 . 百 位 千 位 。 

(2) 注 意 事项 : 

本 程序 在 磁盘 中 文件 名 : AUTO LINE 


床 率 来 


FI LE NAME: AUTO LINE 
站 300, 385 


0300 一 02 02 48 8A 48 A2 05 BD 
0308-- 78 03 %9D 7E 03 CA 10 F7 
0310-- 68 AA 68 48 A9 21 85 38 
0318 一 A9 03 85 39 20 EA 03 68 
0320-- 60 48 8A C9 06 10 OA 68 
0328 一 91 28 BD 7E 03 18 69 了 B0 
0330- 60 68 2C 00 C0 10 FB 91 
0338-- 28 AD 00 Co 2C 10 Co 48 
0340-- C9 98 DO OoD A9 1B 85 38 
0348-- A9 FD853 39 20 EA 03 68 
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03S0-- 60 C9 8D F0O 02 68 600 8A 
035$8- 48 A2 03 FE 7E 03 BD 7E 
0360-- 03 C9 0A 30 08 A9 0 9%9D 
0368-- 7E 03 CA 10 EE 9% 0$ A9 
0370-- 01 9D 7E 03 68 AA 68 600 
0378-- FO FO 01 0 00 FoO Fo 04 


0380 一 01 00 00 FEO 00 00 
率 


5$. 没有 空格 的 LIST 


在 修改 BASIC 程序 时 , 尤其 是 遇 到 了 较 长 的 语句 , 列 程 
序 清单 时 由 于 出 现 众多 的 空格 必 将 增加 不 少 麻烦 。 比 如 一 行 
程序 的 所 有 字符 再 加 上 空格 , 便 会 超过 256 个 字符 , 从 而 使 用 
ESC 功能 修改 十 分 不 便 。 下 面 这 段 小 程序 能 使 LIST 没有 
空格 (不 包括 引号 内 空格 ) 

(1) 使 用 方法 : 

键入 程序 后 , 只 要 在 监控 中 打 人 300G 或 在 BASIC 状 
态 下 用 CALL768 后 , 再 使 用 LIST 列 清单 时 便 不 会 有 多 
余 的 空格 。 如 果 想 恢复 正常 的 列 程序 清单 格式 , 只 须 按 下 
CTRL- RESET 即 可 。 

(2) 注 意 事项 : 

本 程序 在 磁盘 中 的 文件 名 :NO SPACE LIST 
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FILE NAME NO 
*$300LL 

0300- A9 12 
0302 一 8 36 
0304 一 A9 03 
0306-- 85 37 
0308 一 AD EA 
030B 一 C9 4C 
030D-- D0 22 
030F 一 4C EA 
0312 一 C9 A2 
0314 一 DO0 17 
0316 一 A9 1TF 
0318-- 85 36 
031A 一 A9 A2 
031C 一 4C F0 
031F 一 C9 A2 
0321 一 FE0 03 
0323 一 4C FEF0 
0326-- A9 12 
0328-- 85 36 
032A 一 4C 1A 
032D -- C9 A0 
032F 一 DO F2 
0331-- 60 

本 


03 


03 


ED 


FED 


03 


井 $12 
$36 
并 $03 
$37 
$03EA 
##$4C 
$0331 
$U3EA 
并 $A2 
$032D 
并 $1F 
$36 
并 $A2 
$FDFO 
并 $A2 
$0326 
$FDF0 
并 $12 
$36 
$031A 
并 $A0 
$0323 


6.BASIC 程序 修改 工具 


当 作 注 `- 段 相当 长 的 BASIC 程序 中 寻找 错误 时 , 往往 
被 潢 屏幕 的 字符 丙 得 头 昏 脑 胀 。 许 多 很 明显 前 铺 误 也 往 往 会 
镍 被 而 不 见 。 王 面 这 个 程序 将 是 您 的 一 个 好 帮主 , 在 列 程 序 
清单 时 每 次 只 列 一 句 , 且 屏 幕 只 有 三 十 三 格 , 便于 修改 

(也 使 用 方法 : 

键 人 该 程序 后 ,用 RUN10 建立 一 个 人类 文件 
PROOFLISTER。 然 后 调 人 要 修改 程序 , 再 卫 XEC 
PROOFLISTER 调 / 人 .修改 程序 , 这 果 RUN 使 会 问 你 从 
哪 一 句 开 始 列 清 单 , 你 键 人 行 号 后 便 可 开始 检查 了 。 每 看 完 
一 名 后 , 按 一 下 空格 键 便 可 列 出 下 一 句 。 当 要 修改 时 按 E 键 
便 可 退 岂 , 进行 修改 , 然后 再 重新 运行 , 来 检查 程序 。 

(2) 注 意 事项 : 

由 于 此 程序 占用 了 1- 8 行 ,所 以 镍 修改 程序 不 能 含有 
1- 8 行 。 同 样 道 理 , 当 你 修改 完了 一 个 程序 后 , 也 要 用 DEL 
1, 8 清除 修改 程序 后 再 存 捞 ， 

本 程序 在 磁盘 中 文件 名 : BASGRM EDIT 

T 类 文件 名 : PROOFLISTER 

率 率 宁 
FILE NAME: BASGRM EDIT 
1 HOME 
: POKE 33,33 
: PRINT “ENTER THE LINE NUMBE 


17 


18 


: LN$ 
: FOR I= 1TO 5 
: POKE LP +T ASC(MDS$S (LN 


R WHERE” 


: INPUT "YOU WANT TO START LI 


STING:“SLS$ 


:SL=VAL(SLS) 
: SP = PEEK (103) + PEEK (1 


04 ) * 256 


: EP = PEEK (105$) + PEEK (1 


06 ) *256 - 4 


: LP =0 
: FOR I = SP TO EP 


IF PEEK (I) = 188 THEN LP = 
I 


: 工 = EP 


NEXT 
LN = PEEK (SP + 2)-+ PEEK 
(SP+3)*256 


' IF LN < SLTITHEN SP = PEEK 


(SP) + PEEK (SP 二 工 )* 
256 : GOTO 4 
LNS$ = "0O0000" + STRS$SILN) 
RIGHT$( LNS$,5) 


$ , 1)) 
NEXT 1 


: HOM E 
: VTAB 12 


;LIST 00001 
: GET Z$ 
: PRINTZ$ 
: IF ASC(Z$ ) < > 32 THEN PRINT 
”PROOFLISTER 沁 MID $(” 
END EDIT (Sr(Z$ = 
E?") + 1),35): POKE 33， 
(ASC (Z$)< >69)*7+33: 
END 
7SP = PEEK (SP)+ PEEK (SP + 1 
) * 256: IF EP > SP THEN GOTO 
4 
8 POKE 33 ,40: HOME : VTAB 12: PRINT 
”LISTING COMPLETED .": END 
10 pg = CHR$ (4) 
20 PRINT D $ ”OPEN PROOFLISTER” 
30 PRINT D $ "WRITE PROOFLISTER” 
40 LIST 18 
50 PRINT D $ ”CLOSE 
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7.REM 清除 器 


顾名思义 , REM 清除 器 就 是 把 程序 中 的 REM 语句 除 
去 。REM 语句 对 于 一 个 良好 的 程序 是 十 分 重要 的 , 但 对 于 
一 般 的 使 用 者 来 说 没有 什么 太 大 作用 , 而 且 占用 内 存 , 浪费 运 
行 时 间 。 用 本 程序 可 将 其 清除 。 
(1) 使 用 方法 : 
键入 本 程序 后 , 把 有 待 于 处 理 的 BASIC 程序 调和 人 内存， 
然后 在 监控 中 用 7800G 或 在 BASIC 状态 下 用 
CALL30720 调用 本 程序 , 待 光 标 再 现时 , BASIC 程序 中 
的 REM 语句 已 被 清除 。 
( 2 ) 注意 事项 : 
本 程序 在 磁盘 中 文件 名 : REM 。REMOVER 
率 宋 宁 
FILE NAME: REM REMOVER 
*7800. 79A4 
7800-- AD S$9 AA 48 AS 67 8$ FC 
7808-- AS 68 8$ FD 20 16 78 68 
7810 一 8D S9 AA 60 68 60 A0 00 
7818-- B1 FC 48 Cc8 B1 FC FO F4 
7820- 48 C8 B1 FC8D A2 79 C8 
7828-- Bl FC 8D A3 79 Cc8 B1 FC 
7830-- D0 03 4C E9 78 C9 B2 D0 
.7838-- F4 Co 04 F005S 88 0 04 
7840- DO 0CA9 3A 91 FC Cc8 20 


7848 一 
7850 一 
785358 一 
7860 一 
7868 一 
7870 一 
7878-- 
7880 一 
7888 一 
7890 一 
7898 一 
78A0 一 
78A8 一 
78B0 一 
78B8 一 
78C0 一 
78C8 一 
78D0-- 
78D8 一 
78E0 一 
78E8 一 
78F0 一 
78F8 一 
7900 一 
7908 二 
7910 一 
7918 一 


78 8S FB F0 


C8 


上 B 


FC D0 
DO 04 
91 FC 
FC 85 
01 BL 


(2 人 下 


3 罗 吕 可 昌 && 下 
扫 2| 
之 
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B1 19 
68 85 
A8 A9 


AD A4 79 


79 D0 
D0 05 
19  C9 
A9 沁 0 


0A BO0 


8. 救 回 被 NEW 清 掉 的 程序 


在 我 们 使 用 计算 机 的 过 程 中 , 有 时 会 将 运行 完 的 一 程序 
顺手 用 NEW 命令 清 掉 了 它 , 但 随即 又 想起 来 不 应 该 清 。 也 
许 是 忘记 把 它 存 人 磁盘 了 , 或 是 需要 把 它 运行 一 遍 

如 果 这 个 程序 不 太 长 还 可 以 重新 输入 ， 假若 这 个 程序 和 
长 , 或 是 曾经 对 这 个 程序 进行 过 许多 修改 , 而 又 记 不 清 是 如 何 
修改 的 了 , 那么 重新 输入 就 是 一 件 很 让 人 头痛 的 事 了 。 而 本 
程序 能 帮 你 从 内 存 中 救 回 原来 清 掉 的 程序 。 

(1) 使 用 方法 : 

键 和 人 以 下 程序 后 , 只 要 CALL768 (或 是 在 监控 中 用 
300G ， ) 再 用 LIST, 哈 ! 你 的 程序 又 回来 了 。 

(2) 注 意 事项 : 

本 程序 在 磁盘 中 文件 名 : HELP PRO 


灾 林 床 
FILE NAME: HELP PRO 
让 300LL 
0300 一 18 CLC 
0301--  A2 05 LDX 并 $05 
0303-- 了 BHD 00 08 LDX $0800,X 
0306-- FEF0 04 BEQ $030C 


0308 一 。 E8 INX 
0309- 4c 03 03 JMP  $0303 
030C- E8 INX 


030D 一 8E 01 08 STX $0801 
23 


24 


0310 一 
0312 一 
0314 一 
0316 一 
0319 一 
031B 一 
031D 一 
031F 一 
0321 一 
0322 一 
0323 一 
0325 一 
0327 一 
0329 一 
032B 一 
032E 一 


032F 一 


0330 一 
0332 一 
0334- 一 
0336 一 
0339 一 
033A 一 
0335C 一 
033E- 一 
0340 一 
0342 一 


AA 
C8 


SSSR 68srgg 822ss8SSRS 


gs8S 


03 


03 


$06 

并 $00 

并 $08 
$0802 
$07 

闪 $00 
($06) ,Y 
$032E 


($06),Y 
$0339 
$07 

$06 
$031B 


($06),Y 
$07 

$06 
$031B 


$06 

并 $02 
$69 
$6B 
$6D 


0344 一 85 AF STA $AF 


0346- A9 00 LDA 闪 $00 
0348 一 65 07 ADC $07 

034A 一 85 6A STA $6A 

034C- 85 6C STA $6C 

让 工 

034E-- 85 6E STA $6E 

0350 一 85 B0 STA $B0 

03S2 一 600 RTS 


9 。 巧 编 一 行程 序 


本 程序 可 将 具有 249 个 字符 以 内 的 多 行程 序 自 动 生成 一 
行程 序 。 此 外 , 它 可 以 把 一 行 长 程序 分 为 若干 个 短语 句 行 。 

(1) 使 用 方法 : 

键 人 本 程序 后 把 要 处 理 的 程序 调 人 内 存 (不 能 含有 其 它 
无 关 语 句 ), 然后 用 6000G 或 者 CALL24576 运用 本 程 
序 。 随 后 在 BASIC 状态 下 用 义 1 可 使 多 个 语句 合 为 一 个 
语句 ,用 文 2 可 使 一 个 语句 分 为 多 个 语句 。 

(2) 注 意 事项 : 

当 多 个 语句 生成 一 句 时 , 这 些 语 句 中 不 能 有 GO SUB、 
ONERR.IF…THEN、RETURN、GOTO 语句 (如 
最 后 一 句 为 IF … THEN 或 者 GOTO 转 第 一 句 是 允许 
的 ) 。 

本 程序 在 磁盘 中 文件 名 : LINE TOOL 


PR 6 
FILE NAME : LINE TOOL 
*0000. 623C 


6040 一 A2 02 Bl 08 
0048-- 61 F0 11 DD 
6050-- E0 00 F0 1D 
6058-- E9 C8 DO0 HE4 
60600-- 19 Bl 08 Fo0 
6068 一 01 02 20 06 
6070 一 EB 8A 48 A9 
6078-- 68 AA F0 0E 
6080 一 9% 0 02 20 
6088 一 9 02 86 07 
-6090 一 99 08 00 88 
6098 一 Bl1 08  F0O 09 
60A0-- D0 BA 4Cc 3E 
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负 妆 对 昌 起 


27 


28 


6188 一 AD 
6190 一 85 
6198 一 85 
61A0-- 63 
61A8 一 09 
01B0 一 FF 
61B8 一 08 
6061C0 一 09 
61C8 一 FF 
61D0 一 1B 
61D8 一 Dl 
61E8-- 01 


_61F0- B9 


6IF8- C0 
6200-- E9 
.6208 一 FF 
6210-- 00 
6218 一 0B 
6220 一 FF 
6228 一 FF 


10. 出 错 显示 的 补充 


一 般 的 出 错 信 息 , 只 能 告诉 您 错误 类 型 及 出 错 语句 的 行 
号 。 但 若 遇 到 一 行 较 长 的 语句 出 错时 , 仍 不 易 找 到 到 底 有 什 
么 错误 。 而 这 个 程序 却 能 帮 您 指出 到 底 什 么 语句 错 了 。 

( 工 ) 使 用 方法 : 

键 人 本 程序 后 不 再 直接 运行 。 把 要 修改 程序 调 人 内 存 ， 
再 加 上 ， 0 ONERRGOTO 10000 

10000 CALL768 
若 0 句 或 10000 句 有 内 容 可 另 换 别 的 语句 就 行 了 。 然 后 
RUN, 您 便 会 得 到 您 想 要 的 结论 了 。 


(2) 注 意 事项 : 
本 程序 在 磁盘 中 的 文件 名 : PRINT LINE OF ERR 
宁 素 率 

FILE NAME: PRINT LINE OF ERR 
*300LLL 
0300- 20 8E FD JSR 。 $FD8E 
0303 一 A9 AA LDA  ##$AA 
0305 一  A2 03 LDX ”并 $03 
0307-- 20 ED FD JSR $FDED 
030A 一 CA DEX 
030B 一 “DO0 FA BNE 。 $0307 
030D-- 20 48 F9 JSR $F948 
0310- A0 00 LDY ”并 $00 
0312 一 84 FF STY $ FF 


0314-- Bl1 DC LDX ($DC),Y 


0316 一 Do 1D BNE， $0335 
0318 一 。 A0 05 LDY ##$05 
031A 一 Bl DC LDA ($DC),Y 
031C 一 F0 46 BEQ $0364 
031E 一 30 18 BMI $0338 
0320--  C9 22 CMP  。 井 $22 
0322 一 “D0 02 BNE $0326 
0324-- “E6 FF INC $FF 
0326 一 C9 3A CMP 并 $3A 
0328 一 “D0 06 BNE $0330 
032A 一 “66 FF FOR $FF 
032C 一 9% 36 BCC $0364 
032E 一 “26 FF ROL $FF 
0330 一 09 80 ORA 并 $80 
0332 一 20 ED FD JSR $FDED 
0335 一 C8 INY 

0336 一 “D0 E2 BNE $031A 
0338 一 84 47 STY 并 47 
033A 一 A0 00 LDY 提 $00 
033C 一 29 7F AND #$7F 
033E 一 AA TAX 

033F 一 A9 D0 LDA #$D0 
0341 一 85 .08 STA $08 
0343 一 ”85 09 STA $09 
0345 一 Bl 08 LDA ($08 ),Y 
0347-- 10 03 BPL $034C 


0349 一 
034A 一 
034C 一 
034E 一 
0350 一 
0352 一 
0354 一 
0355 一 
0357 一 
0358 一 
035SA 一 
035D 一 
035SE 一 
0360 一 
0362 一 
0364 一 
0366 一 
0368 一 
036A 一 
036C 一 
036E- 一 


DEX 
08 BEQ 
08 ING 
F5 BNE 
09 INC 
F1 BNE 
JINY 
08 LDA 
PHA 
80 ORA 
ED FD JSR 
PLA 
FE4 BPL 
47 LDY 
D1 BNE 
DA LDA 
鸡 STA 
DB LDA 
76 STA 
DE LDX 
19 D4 JMP 


$03354 
$08 
$0345 
$09 
$0345 


($08),Y 


并 $80 
$FDED 


$0334 
$47 
$0335 
$DA 
$75 
$DB 
$76 
$DE 
$D419 


辣 


11. 辅助 输入 程序 


在 BASIC 中 ,INPUT 语句 恐怕 也 有 缺 欠 ， 并 非 完美 ， 
比如 , 当 输入 字符 串 时 , 若 其 中 含有 “, ”或 “4: ”时 , 就 无 计 可 施 
了 。 本 程序 可 以 帮助 你 解决 这 个 问题 。 

(1 ) 使 用 方法 : 

这 段 BASIC 程序 包括 建立 机 器 语言 子 程序 和 演示 两 部 
分 。 当 利用 机 器 语言 子 程序 辅助 INPUT 语 生 时 , 将 用 "> ” 
作为 输入 指示 , 这 是 用 来 与 正常 的 INPUT 区 别 而 使 用 的 标 
志 。 有 具体 地 使 用 方法 , 可 以 参照 演示 部 分 。 

(2) 注 意 事 项 : 

本 程序 在 磁盘 中 的 文件 名 : SUPER INPUT 


32 


罕 家 床 


FILE NAME: SUPER INPUT 
100 丰 $ 一 /1 


110 


1240 
130 


FCR I = 768 TO 798: READ A: POKE 
下 A.NEXT 

HOME 

PRINT "INPUT ANYTHING“: GOSUB 
190 
PRINT "ANYTHING== >“;A $ 
PRINT 

ENPUT “ANY MORE? (Y/N)“YT $ 


170 IF YTS$S = "wwTHEN 120 

180 END 

190 CALL 768 

200 B1 = PEEK(798) 

210 B2 = PEEK(106) * 256 二 PEFK 
(105) 

220 POKE B2 + 2 ,Bl 

230 POKE B2 + 3, 0 

240 POKE B2 + 4, 2 

250A$= MID $(Tg$ ,1 

260 RETURN 

270 DATA 169,190,133,5132.106, 
233,142,30,3,164,0,204,30,3， 
240 

280 DATA 12,185,00,2,41,127,153 
,0,220076123.96.00 


12. 能 随机 读 取 的 READ 


我 们 都 知道 , BASIC 语言 中 READ 语句 , 必须 按 
DATA 语句 中 的 顺序 读 人 数据 。 若 要 读 第 一 百 个 数据 , 则 
先 要 读 出 前 九 十 九 个 , 十 分 麻烦 。 本 程序 能 读 出 数据 中 的 任 
意 一 个 。 


(1) 使 用 方法 : 
键 人 以 下 机 器 语言 子 程序 后 , 便 可 用 USR 函数 来 调 
用 。 首先 : 


POKE10,，76: POKE11,0:POKE12，3 

然后 便 可 读 取 了 。 例 如 : 读 取 第 3 个 数据 , 则 A = USR(3 
):READ A 便 可 读 取 第 三 个 数据 。 

以 下 有 一 个 演示 程序 可 供 参 考 : 

RND READ 。 DEMO 

( 2 ) 注意 事项 : 

机 器 语言 子 程序 在 磁盘 中 文件 名 : RUD READ 


床 闲 床 


FILE NAME: RND READ. DEMO 

10 POKE 10,76: POKE 110 POKE 1 
23 

20 INPUT N 

30x = USR (N): READ A$ 

40 PRINTA $ : GOTO 20 


5S0 DATA 


102030“HELLO" BAD 


FILE NAME: RND READ 


”6080 
*300. 387 

0300-- 20 32 
0308 一 68 85 
0310-- 84 FA 
0318-- 85 FC 
0320-- B1 FC 
0328-- FC 85 
0330 一 C9 83 
0338 一 CS A0 
0340 一 FEF0 38 
0348-- B1 FC 
035$0- AS5 11 
0358 一 F0 EC 
0360 一 C9 2C 
0368 一 FE0 04 
0370- D0 Cc4 
0378 一 F0 98 
0380--_A5 FD 


E7 
80 


67 
00 
85 


13. 快速 屏幕 编辑 


在 进行 屏幕 编辑 时 , 用 左右 箭头 一 格 一 格 地 移动 是 很 费 
时 间 的 , 使 用 本 程序 , 则 可 以 节省 时 间 。 

(1) 使 用 方法 : 

键 人 以 下 程序 , 在 含 DOS 的 状态 下 输入 (监控 中 ): 
AAS5S5:00 03; 若 不 含 DO S, 则 输入 :38:00 03. 然 
后 按 CTRL- A, 光 标 一 下 子 就 跳 到 了 本 行 屏 幕 的 右 侧 , 再 
按 一 下 , 又 跳 到 了 下 一 行 的 右 侧 ; 按 CTRL- 工 , 光标 则 返回 
到 本 行 屏 幕 的 左 侧 。 在 中 华 学 习 机 上 ,Fl 相当 于 
CTRL- A,F2 相当 于 CTRL- 工 。 若 想 退 出 这 种 编辑 
状态 , 按 CTRL- RESET， 

(2) 注 意 事 项 : 

本 程序 在 磁盘 中 文件 名 : SCREEN EDITER 

让 素 容 

FILE NAME: SCREEN EDITER 
0300- 85 06 STA $06 
0302-- 20 1B FD JSR S$FDIB 
0305-  Cc9 81 CMP 并 $81 
0307- “D0 0D BNE $0316 
0309-- AS 21 LDA $21 
030B 一 E9 02 SBC 并 $02 
030D- 85 07 STA  $07 
030F 一 A9 95 LDA 并 $95 
0311-- 85 08 STA 8$08 
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{ 甩 1 一 
216 一 
0318 一 
031iA 一 
SLC 一 
031E 一 
0520 一 
0322 一 
0324 一 
0326 一 
0328 一 
032A 一 
032C 一 
032E 一 
0330 一 
0332 一 
0334 一 
0336 一 
0338 一 
033A 一 
033C 一 


4( 
C9 


，D0 


28 03 
8C 
22 
20 
01 


JMP 
CMP 
BNE 
LDA 
ADC 
STA 


s0325 
##$8C 
8033C 
820 
##301 
s07 
#888 
808 

并 8$00 
8$033A 
#S2E 
838 

$06 
($28),Y 
$24 
$07 
$033A 
并 $00 
$38 
$08 


3/ 


14. 软件 保护 的 一 种 方法 


假若 有 了 一 个 不 希望 别人 中 断 参 考 的 软件 , 那 就 把 下 面 
这 个 程序 加 在 适当 位 置 , 它 能 使 整个 屏幕 变 成 乱 精 精 的 一 片 ,并 伴 
“ 跌 电 " 声 , 好 象 显示 器 坏 了 一 样 。 从 而 达到 保护 的 目的 。 


(1 ) 使 用 方法 


键入 本 程序 后 , 只 要 键入 300G , 您 便 能 看 到 上 述 现象 。 
若 把 CTRL- RESET 指针 改 为 指向 本 程序 , 则 打 入 : 


率 


LDA 
STA 
LDX 
工 DX 
工 DX 
LDX 
LDA 
STA 

LDA 


POKE1010,0 

POKE1011,3 

POKE1012,166 

(2) 注 意 事项 : 

本 程序 在 磁盘 中 文件 名 : WRONG 

史 对 

FILFE NAME WRONG 
0300-- A9 00 
0302 一 85$ 1A 
0304-  AE 5S7  C0 
0307 一 AE S$2 CO0 
030A-- AE 5$4  cC0 
030D- AE 5$0 co0 
0310 一  A9 20 
0312 一 853 1B 
0314--  A9 D0 
0316 一 85 1D 
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STA 


并 $00 
$1A 
$C057 
$C052 
$C054 
$C050 
并 $20 
$1B 
并 $D0 
$1D 


0318 一 
031A 一 
031C 一 
031E 一 
0320 一 
0322 一 
0324 一 
032/ 一 
0328 一 
032A 一 
032C 一 
032F 一 
0331 一 
0333 一 
0335 一 
0337 一 
0339 一 
033C 一 


($lC),Y 
$1E 

$1C 
(1A)，Y 
$1C 

$ 0327 

$ C030 


$ 0318 
$1D 

$ C030 
$ 1B 

$ 1B 
并 $ 40 
$ 0318 
$1E 

$ 0310 
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15. 屏幕 上 的 选择 器 


有 许 : :软件 用 左右 箭头 控制 一 个 光标 在 屏幕 中 上 下 移动 ， 
来 选择 各 迁 项 的 内 容 , 我 们 称 它 为 选择 器 。 本 程序 就 提供 了 
这 种 功能 。 可 把 它 加 到 自己 的 程序 中 去 , 使 用 其 选择 功能 。 

(1) 使 用 方法 : 


键 人 本 程序 后 , 用 以 下 格式 调用 : 
CALL768,A,B,C,D 


各 参数 含义 : 


A 表示 光标 所 在 屏幕 位 置 左 限 ,B 表 示 右 限 , C 表 示 上 限 ， 
D 表示 下 限 。 在 回 车 选择 后 , 可 用 PEEK (4) 读 出 所 选 位 
置 。A.B、C.、D 各 数 分 别 存 于 零 页 单元 $ 6,$ 7,$ 8， 


$ 9。 


(2) 注 意 事项 : 


本 程序 在 磁盘 中 文件 名 : SUPER SELECT 


率 


本 


率 


FILE NAME: SUPER SELECT 


0300 一 
0302 一 
0304 一 
0307 一 


闪 交 风电 总 包 名 马 


00 


DE 
DD 
E6 


并 $00 
$04 

$ DEBE 
$ DD67 
$ EOFB 


$ 04 
$ 06Y 


0312 一 
0314- 一 
0316 一 
0318 一 
031A 一 
031C 一 
03]E 一 
0320 一 
0323 一 
0325 一 
0327 一 
0329 一 
032B 一 
032C 一 
032E 一 
0330 一 
0333 一 
0336 一 
0338 一 
033A 一 
033C 一 
033E 一 
0340 一 
0342 一 
0344 一 
0346 一 
0348 一 


冯 腾 8& 


F1 


品名 只 有 && 


C0 
C0 


STA 


$04 
##$03 
$0304 
$09 

$06 

$ 04 

$04 
$FBC1 
$08 
($28),Y 
#$3F 
($28),Y 


509 
$0325 
$C010 
$C000 
#$8D 
$0342 

并 $88 
0342 

并 $95 
$0333 
$08 
($28) ,Y 
并 $80 
($28) ,Y 
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$09 
$0344 
$04 
并 $8D 
$036B 
并 $88 
$0362 
$07 
$03SF 
$04 


$031E 
$00 
$0368 
$04 


$031E 


$ 06 

闪 $00 
$04 
$C010 


16. 内 存 资料 的 查寻 


当 从 内 存 中 想 寻 找 几 个 数据 , 而 又 不 知道 它们 所 在 地 址 
时 , 那 该 怎么 办 呢 ?7 建议 使 用 本 程序 , 问题 可 以 迎刃而解 
(1) 使 用 方法 : 
键 人 本 程序 后 , 再 键 和 人 以 下 参数 , 即 在 $ 19 、$ 1A 单 
元 中 放置 寻找 的 起 始 地 址 ($ 19 单元 存放 地 址 低 八 位 、$ 
1A 单元 存放 高 八 位 ), 在 $ 1B、$ 1C 单元 中 存放 寻找 的 
结束 地 址 , 从 $ 364 单元 起 顺序 存放 所 需 查找 的 数据 的 字 节 
数 及 数据 。 然 后 用 300G !} 便 可 开始 查找 , 找到 后 可 打印 出 这 
些 数据 的 地 址 ; 若 没有 找到 , 便 会 发 出 连续 两 声 “ 哪 . 哪 " 声响 
并 退出 。 
(2) 注 意 事项 : 
本 程序 在 磁盘 中 文件 名 : SEARCH RAM 
来 来 床 
FILE NAME: SEARCH RAM 
让 300LLL 
0300-- A4 19 LDY $l9 
0302-- AS 1A LDA $1A 
0304-- 85$ 1E STA $1E 
0306-- A2 00 LDX #$00 
0308-- 86 19 STX $19 
030A-- A2 00 LDX #$00 
030C- 84 ID STY $lD 
030E-- 85$ 1IA STA S$1A 
43 
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0310 一 
0312 一 
0315 一 
0317 一 
0318 一 
031B 一 
031D 一 
031E 一 
0320 一 
0322 一 
0324 一 
0326 一 
0328 一 
032A 一 
032C 一 
032E 一 
0331 一 
0334 一 
0337 一 
0339 一 
033B 一 
033E 一 
0341 一 
0344 一 
0346 一 
0348 一 
0349 一 


A4 1D 


03 


03 


LDA ($19),Y 


CMP 


$0364,X 
$0331 


$0363 
$0337 


$0322 
$1A 
$1A 
$1C 
$0310 
$1B 
$0310 
$0310 
$035C 
$0349 
$030A 
$1D 
$1E 
$F940 
$FF3A 
$0349 
$19 
$1A 


$1D 


034B 一  C8 INY 

034C 一 D0 02 BNE  $0350 
034E 一  E6 1E INC  $1E 
0350 一 AS 1]E LDA  $1E 


0352 一  C5 1C CMP  $1C 
0354 一 90 0C BCC  $0362 
0356 一  C4 1B CPY  $1B 
0358 一 90 08 BCC  $0362 
035A 一 68 PLA 

035SB 一 68 PLA 

035C 一 2 3A FF JSR  $FF3A 
035F 一 20 3A FF JSR  $FF3A 
0362 一 60 RTS 


17. 分 割 BASIC 程序 


中 华 学 习 机 的 内 存 虽 然 不 小 , 但 有 的 较 长 的 BASIC 
程序 仍 会 占用 数据 区 , 如 高 分 辩 率 图 形 区 等 , 而 下 面 这 段 小 程 
序 可 把 一 个 较 长 的 BASIC 程序 分 为 两 部 分 , 跳 过 数据 
区 , 使 程序 、 数据 均 能 保留 完整 。 

(1) 使 用 方法 : 

键 和 人 本 程序 后 , 在 $ 07 单元 内 放 人 断 开 程序 位 置 的 高 
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位 地 址 , 而 低位 自动 认为 是 $ 00.。 在 $ 06 单元 内 放 人 跳 过 
页 数 减 一 的 数值 。 如 跳 过 2 页 , 则 键入 6: 01。 然 后 打 人 
9400G (或 CALL37888) 便 可 把 程序 一 分 为 二 。 当 然 ， 
BASIC 程序 要 事先 调和 人 内存。 

(2) 注 意 专 项 : 

本 程序 在 磁盘 中 文件 名 : SHUT BASICPRO 


来 站 瘦 


FILE NAME: SHUT BASICPRO 

*#9400. 9509 

9400 一 38 A5 BO 83 41 65 0 85 
9408 一 43 A5 AF 85 40 85 42 A0 


9410-- 06 A9 00 9l1 42 88 D0 F9 
9418 一 Bl 40 C6 40 91 42 C6 42 
9420 一 A5 42 C9 FF DO F2 AS 41 
9428-- C6 43 Cc6 41 C5 07 10 E8 
9430-- A5 01 85 08 C6 08 38 A5S 
9438 一 BO 65 06 85 BO 85 6A 85 
9440 一 6C A5 67 8 40 AS 68 85 
9448-- 41 A0 01 Bl1 40 C5 08 F0 
9450-- 0B AA 88 BlL 40 85 40 86 
9458 一 41 C8 DO EF 88 Bl 40 FI 
9460 一 02 D0 05 C8 B1 40 D0 E9 
9468-- C8 C8 C8 C8 Bl 40 DO FB 
9470-- C8 C8 C8 C8 C8 A9 AB 91 
9478-40A 408542 全 4 85 
9480-- 43 C8 09 A0O 01 Bl 40 


9488 一 38 
949%0 一 40 
9498 一 D0 
94A0 一 00 
94A8 一 00 
94B0 一 C8 
94B8-- 1B 
94C0 一 01 
94C8 一 19 
94D0--A5 
94D8 一 85 
94E0 一 19 
94E8 一 A 
94F0 一 点 
94F8 一 00 
9500 一 C8 
9S08 一 A0 


A5 


台 员 世 虽 员 六 癌 
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18. 增 汪 音乐 键 功能 


许多 机 器 都 有 音乐 键 功 能 , 即 每 触 一 键 便 伴 有 清脆 音 
响 。 然而 中 华 学 习 机 无 此 功能 。 本 程序 可 使 中 华 学 习 机 增添 


有 趣 的 音乐 键 。 
(1 ) 使 用 方法 : 


键 人 本 程序 后 直接 键 人 300G 或 CALL768 便 可 具 
有 音乐 键 功能 。 若 想 恢 复 正 常 可 用 CTRL- RESET 键 。 


(2) 注 意 事项 : 


本 程序 在 磁盘 中 文件 名 : MUSIC KEY 


率 素 


FILE NAME: MUSIC KEY 


*300LLL 
0300 一 。 AE 
0303 一 AD 
0306 一 “85 
0308 一 AD 
030B 一 “85 
030D -- E0 
030F- D0 
0311 一 4C 
0314 一 E6 
0316 一 D0 
0318 一 ”E6 
031A 一 2C 
031D- 10 
031F 一 91 


EA 03 
48 03 
38 

49 03 


00 “C0 


$03EA 
$0348 
$38 
$0349 
$39 

并 $4C 
$0347 
$03EA 
$4E 
$031A 
$4F 
$C000 
$0314 
($28 ),Y 


0321 一 
0324 一 
0325 一 
0326 一 
0327 一 
0328 一 
0329 一 
032B 一 
032C 一 
032D 一 
032E 一 
0330 一 
0333 一 
0335 三 
0336 一 
0337 一 
0339 一 
0335C 一 
033D 一 
033F 一 
0340 一 
0341 一 
0342 一 
0343 一 
0344- 一 
0347 一 
0348 一 
0349 一 
034A 一 


00  C0 


C0 


习 迪 晶 


C0 


10 “C0 


$C000 


并 $22 


$032D 
$Cc030 
井 $FF 


$0336 


$C030 


$032B 


$Cc010 
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1 人 TREE=C 


假如 想 保护 自己 的 BASIC 程序 不 让 别人 窃取 。 可 
以 采用 封锁 CTRL- C 的 办 法 , 使 它 失去 原 有 功能 , 只 作为 
一 个 暂停 键 , 这 就 是 本 程序 要 达到 的 目的 。 

(1) 使 用 方法 : 

键 人 程序 后 返回 BASIC 状态 , 再 用 CALL768 调用 ， 
于 是 便 可 使 CTRL- C 失效 。 若 想 取消 封锁 , 只 有 用 
CTRL- RESET。 当然 , 这 必须 在 CTRL- RESET 
未 被 封锁 的 前 提 下 进行 。 

(2) 注 意 事项 : 

在 监控 中 输 完 程序 后 不 用 300G , 否则 CTRL- C 失 
效 便 无 法 返回 BASIC 状态 。 

本 程序 在 磁盘 中 文件 名 : LOOK AC 


来 素 床 


FILE NAME: LOCK 人 C 


*#300LL 

0300- 20 17 03 JSR $0317 
0303 一 48 PHA 

0304-- AD 00 C0 ， LDA  $co00 
0307 一 10 FB BPL  $0304 
0309 一 49 83 EOR 并 $83 
030B 一 F0 EF7 BEQ ”和 304 
030D 一 68 PLA 


030E 一 
0310 一 
0313 二 
0316 一 
0317 一 
0318 一 
0319 一 
031B 一 
031D 一 
031E 一 
0320 一 
0322 一 
0325 一 
0327 一 
0329 一 
032C 一 
032D -- 


00 


C0 
C0 


00 


03 


03 


(S28),Y 


$C000 
$Cc010 


#$01 
$38 


并 $00 

$39 
$03EA 
间 34C 
$032C 
3$03EA 
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20. 屏幕 的 多 窗口 功能 


一 个 屏幕 上 有 多 个 显示 窗口 , 且 各 个 窗口 的 内 容 互 不 影 
响 。 本 程序 能 在 同一 屏幕 上 开设 多 个 窗口 。 该 程序 包括 演示 
程序 及 设置 窗口 子 程序 等 两 个 内 容 。 
(1) 使 用 方法 : 
键 人 本 程序 后 , 直接 RUN 运行 , 按 1- 4 键 便 能 看 到 演 
示 程 序 开 设 的 四 个 窗口 。 也 可 以 把 位 于 10000 ~ 10070 
的 子 程序 加 入 到 自己 的 程序 中 去 , 其 有 关 变 量 内 容 如 下 : 
WEL(2- 39): 窗 口 左 限 
WR(2- 39): 窗 口 右 限 
WT(2- 22): 窗 口上 限 
WB(2- 22): 窗 口 下 限 
W $ : 圈 出 窗口 边界 的 字符 
WI(0- 2): 圈 出 窗口 边界 字符 的 正常 . 反 相 . 闪烁 三 种 
显示 方式 。 
(2) 注意 事项 : 
具体 使 用 方法 可 参考 程序 演示 部 分 。 
本 程序 在 磁盘 中 文件 名 : TEXT WINDOW 
末 宁 本 
FILE NAME: TEXT WINDOW 
100 “TEXT 
110 HOME 
130 WL= 10 
: WR = 30 
: WT=5$ 
S2 


210 


270 


: WB -= 1 
:和 = 


; WILL s2 


GOSUB 10000 

PRINT 

PRINT TAB (4);”====MEMU= ===/ 
PRIMNT 


; PRINT 


FORY = 1TO4 

PRINT TAB (4) ; ” 一 WINDOW 
CHRS( 64 +Y) ;7 
NEXT Y 

PRINT 


: PRINT 
: PRINT 


PRINT ”CHOOSE WINDOW (1 一 4)“ 


. GETY$ 


IFY$ < "1"”ORY$ >“4"”THEN 
100 
w=VvALCY$) 
ON W GOSUB 10002000.3000,4 
000 
FORZ = 1To 1000 
NEXT 
LIST 


53 


54 


320 


350 


360 


370 
380 
1000 
1010 


HOME 

PRINT 

PRINT 

PRINT 

PRINT TAB( 3); ”WINDOW (”; CHR $ 
(64 十 观 ) 

FOR Z = 1 TO 1000 

NEXT 

REM DRAW RETURN WINDOW 


WR =34 

WT =12 
WB = 12 

WS$= CHR$(32) 
WI = 1 

GOSUB 10000 


PRINT TAB( 5 ) ; “PLEASE PRES 
S ANY KEYI1 ”; 


GETYS$ 

GOTO 130 

REM DRAW WINDOW (A) 
WwWL=2 

WR = 15 

汉 2 

WB =8 

W$= CHR $ (32) 

WI = 1 


4010 


GOSUB 10000 
RETURN 
REM DRAW WINDOW (了 B) 
WL = 26 
WR = 39 
WT = 2 
WB=8 
划一 “站 7 
WILL =1 
GOSUB :10000 
RETURN 
REM DRAW WINDOW (C) 
WL=2 
WR = 15 
WT= 16 
WB = 22 
办 和 = “ 失 ” 
wIE = 2 
GOSUB 10000 
RETURN 
REM DRAW WINDOW (TD) 
WL= 26 
WR = 39 
WT = .16 
WB = 22 
: WS$= “二 7 


WI=0 
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4020 “CGOSUB 10000 
4030 ”RETURN 
10000 FOKE 32,;0 
: POKE 33,40 
POKE 34 0 
: POKE 33,24 
10010 IF WI = 0 THEN NORMAL 
10020 IF WI = 1 THEN INVERSE 
10030 IF WI = 2 THEN FLASH 
10040 FOR WY = WI 一 1TOWB+1I 
: VTAB WY 
HzABWL 一 工 
PRINT WwW$ ; 
HTAB WR 十 1 
PRINT W$ 
:_ NEXT 
1005$0 FOR WX = WL TO WR 
: VTAB WT 一 1 
HTAB WX 
PRINT W$; 
VTAB WB 十 T 
HTAB WX 
PRINT WS$ ; 
: NEXT 
10060 POKE 32wL 一 
: POKE 33,WR 一 WL+1 
: POKE 34WT 一 1 
: POKE 35,WB 
10070 NORMAL 
: HOME 
RETURN 


1 直 
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2T. 工 如 说 双 屏 幕 ” 


欲 把 两 个 相似 的 程序 进行 比较 , 通常 是 利用 两 台 计 算 栅 
来 进行 的 , 即 分 别 和 输入 程序 ， 和 、 比 较 。 但 是 , 能 不 能 使 -一 
台 计 算 机 象 两 台 那 样 进 行 工 作 昵 本 程序 将 使 你 的 比较 工作 
在 同一 台 计 算 机 上 进行 。 

(ij 使 用 方法 : 

中 输入 机 器 语言 子 程序 , 打 人 CALL768 便 可 运行 

人 @ 四 学 生 利用 左 屏 幕 输入 自己 的 程序 并 运行 ,或 作 其 它 操 

作 氏 可 

@@ 按 && 命令 , 光标 由 屏幕 左 半边 跳 到 右 半 边 , 乙 学 生 便 

可 利用 在 半 屏 幕 输入 自己 的 程序 并 运行 (不 影响 甲 学 生 的 

程序 ) . 

@@ 如 果 甲 学 生 欲 重新 修改 自己 的 程序 , 只 要 按 & 命令 光标 

重 跳 回 左 半 屏 幕 底 处 , 操作 权 便 在 甲 学 生 手 中 了 。 

把 屏幕 一 分 为 二 也 有 局 限 性 , 如 欲 运 行 含有 打印 格式 语 
句 的 BASIC 程序 或 绘图 程序 , 上 述 “ 双 屏幕 "就 显得 美 中 不 
足 了 。 解决 这 个 问题 方法 是 : 当 控 制 权 在 甲 学 生 手中 , 用 
TEXT 命令 可 使 用 全 屏幕 ; 交换 控制 权 后 仍 用 TEXT 命令 
恢复 全 屏幕 。 如 果 您 觉得 此 举 费 事 , 希望 直接 在 全 屏幕 下 交 
换 控 制 权 , 则 请 打 人 如 下 语句 : 

PORKE864,40 
POKE939,0 
PORKE945,40 

即 可 使 您 满意 。 若 把 语句 中 的 40 改 为 19; 0 改 为 21， 

又 可 恢复 到 以 前 双 屏 幕 状 态 。 
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(2) 注 意 事项 : 
本 程序 套 盘 中 文件 名 : SET DOBSCREEN 


38 


冰 


剖 


站 


FILE NAME: SET DOBSCREEN 


让 300. 3C7 

0300 一 A9 
0308-- 8D 
0310 一 A9 
0318 一 CD 
0320 一 4C 
0328 一 03 
0330 一 8D 
0338 一 AD 
0340-- 85S 
0348 一 69 
0350 一 86 
035S8.- EA 
0360-- 13 
0368 一 22 
0370-- 03 
0378 一 8D 
0380 一 _A5S 
0388 一 CB 
039%0 一 CD 
0398 一 _ AF 
03A0 一 CF 
03A8 一 85 
03BO 一 A9 
03B8 一 20 
03C0 一 A9 


00 
02 
01 
03 
39 
AS 
CE 
C8 
68 
85 
B0 
A9 
85 
FEC 
8D 
C8 


。AF 


03 
03 
85 
03 
6E 
13 
22 


03 


8D 
60 
8D 
8 
03 
人 
03 
03 
AD 
6B 
85 
00 
21 
A9 
了 7 
03 
8D 
AD 
85 
69 
85 
A9 
85 
FC 


8D 


00 

A9 
CC 
CF 
PEA 
8D 
AS 
834. 
CA 
85 
6A 
85 

A9 
76 

03 
AS 
CA 
CC 
68 

85 

8B0 
15 

21 

A9 


EF7 


如 
04 
03 
03 
A5 


22.REM 美化 希 


如 果 想 在 REM 语句 中 加 点 花边 之 类 的 东西 , 并 清 掉 
REM 前 的 行 号 , 可 运行 下 面 这 段 程序 ， 它 能 把 及 EM 之 前 
的 行 号 除去 , 却 依旧 保留 REM 的 内 容 。 

(1 使 用 方法 : 

键 人 本 程序 后 , 把 有 待 处 理 的 程序 调 人 内存, 然后 在 监 
控 下 用 6000G 或 在 BASIC 状态 下 用 CALL24576 便 可 
达到 美化 的 目的 。 

(2) 注 意 齐 项 : 

本 程序 在 磁盘 中 文件 名 : SUPER REM 

家 宣 率 
FILE NAME: SUPER REM 
6000- 20 8E FD 20 8E FD 2C 83 
6008- Cc0 2C 83 CO A9 00 8D 00 
6010- DO CD 00 DO FO 06 2C 82 
6018- CO0 4C EC 6 4 00 2Cc 8 
6020- co 2C 8H Cc084 3c 84 42 
6028 一 88 84 3 84 3F A9 D0 85 
6030- 3D 85 43 C8 20 2C FE A9 
6038-- 4C 9%9 3C D4 C8 A9 C2 99 
6040- 3C D4 C8 A9 60 % 3C D4 
6048-- 2C 80 C0 AS 67 85 06 A5 
6050- 6568 853 0 A0 00 Bl1 06 DI0 
60$8-- 0OE C8 B1 06 D0 09 2C 82 
6060- Co 20 73 F2 4C D0 03 A0 

59 


B6 
Ai 


FF C8 
05 60 
DB 4C 
HB4 CB 
87 00 


23. 高 分 辩 率 图 像 的 查 色 点 


在 低 分 辩 率 绘图 中 有 一 个 函数 SCRN, 它 能 查 出 给 定 座 
标 位置 上 的 颜色 代码 , 而 在 高 分 辨 率 中 却 无 此 功能 。 本 程序 
能 够 判断 高 分 辨 率 图 像 上 色 点 的 有 无 。 
(1) 使 用 方法 : 
键入 机 器 语言 子 程序 后 , 输入 : 
POKE1013,76 
POKE1014, 0 
POKE1015，3 
然后 用 放 X,Y 调用 (X、Y 为 坐标 ), 若 在 (X 玉 有 色 点 ， 
则 零 页 单元 $ 00 中 值 为 1, 否则 其 值 为 堆 。 具 体 使 用 可 以 参 
考 演示 程序 。 
(2) 注 意 事项 : 
机 器 语言 子 程序 在 磁盘 中 文件 名 : 
SCRN HIRE 
演示 程序 在 磁盘 中 文件 名 : SCRN HIRE DEMO 
床 素 家 
FILE NAME:， SCRN HIRE DEMO 
5 POKE 1013,76 
: POKE 10140 
: POKE 1015,3 
10 ”HGR 
: HCOLOR= 3 
M = INT(RND (1) * 280) 
N = INT (RND (1) * 160) 


风 名 


61 


40 “HPLOT M,0 TO 279,159 
50 FOR X = 0 TO 279 
60 广 XN 

: IF PEEK (0) = 1THEN 9%0 
70 HPLOT XN 
80 NEXT 
90 VTAB 24 

: PRINT CHR $ (7);PEEK (0), PEEK 

(1) 

FILE NAME: SCRN HIRE 
*300L 
0300- 20 B9 F6 JSR $F6B9 
0303 一 20 1 F4 JSR S$F411 
0306-- 。 A4 ES LDY $E5 
0308-- Bl1 26 LDA ($26) ,Y 
030A 一 C9 80 CMP 并 $80 
030C 一 BO 07 BCS  $0315 
030E-- A2 00 LDX 并 $00 
0310-- 86 01 STX  $01 
0312-- 4C 1B 03 JMP $031B 
0315 一  A2 01 LDX 并 $01 
0317 一 86 01 STX  $01 
0319 一 E9 80 SBC 并 $80 
031B 一 25 30 AND $30 
031D-- F0 02 BEQ $0321 
031F 一 A9 01 LDA 并 $01 
0321 一 85 00 STA  $00 


24. 分 区 显示 汉 衬 


CEC- 1 型 中 华 学 习 机 内 固化 有 一 、 二 级 汉字 
库 , 下 面 这 个 程序 能 将 硬 字 库 分 区 显示 出 来 。 

《了 合用 方法 : 

键 人 完 程 序 后 打 人 RUN, 这 时 键 人 区 位 码 (两 位 数字 ) 
莽 囊 将 该 区 94 个 汉字 或 符号 齐 地 显示 在 屏幕 上 ， 老 要 最 
示 下 一 区 , 随便 按 一 字 骸 键 邵 可 , 如 按 其 它 刍 则 退出 。 

(31} 广 意 事项 : 

本 程序 在 丽 盘 中 文件 名 为 : DISPLAY HZ LI 

浆 罕 齐 
FILE NAME: DISPLAY HZ LIB 
10 PR# 3 
: PRINT CHR$ ( 12); CHRS ( 18) 
20 ”GET AS$ 
:ON1+(AS < ":”)+(AS <“ 
0”) GOSUB 80.90100 
30 “HOME 
:J=A+28+(A>5S)+(A> 
14) 十 (A>27) 
: 理 = 一 SrR(A) 
:了 FA<l0THEN 了 苦 = 0" + 了 
$ 
40 FORM=0TOo9 
: 殊 = 蕊 +STRS(M) 二 0 
: VTAB (M + 1) 


03 


70 


19U 


HTAB(T) 
: PRINT 中 ; 


FOR 驹 0TOS 


:MTNT+ 人 站 
:TIT=B+t(B>33)+(B> 42) 


十 (B>5SS) 
AN = CHRS( 127) + CHRS (了 
) + CHRS (了 


: HTAB(N 3 二 6) 
，FPRINT A8 ， 


NEXT N，M 


: 和 = FRE (0) 
: GOTGO 20 


丰 王 人 十 1 
TURN 
GET 8B$ 


:人 =YVALCASI IOT YALI 


B$ ) 


: 六 ETURN 


2NPD 


235. 定 义 F4、F5 为 监控 及 小 汇编 


这 个 程序 能 够 使 中 华 学 习 机 CEC- 1 具有 三 个 立即 命 
令 键 :F4 进入 监控 ,FS 进入 汇编 .TEXT 进入 LIST 。 

(1) 使 用 方法 : 

键 人 本 程序 后 在 监控 下 用 300G 运行 或 在 BASIC 状 
态 下 用 CALL768 调用 均 可 。 按 CTRL- RESET 键 可 
以 中 断 这 种 芒 能 ， 

(2) 注 意 豆 项 : 

本 程序 只 能 在 不 含 D 0O8S 的 西 文 状态 下 运行 。 

本 程序 在 磁盘 中 文件 名 : MAKE F4 FS 


宗 让 宁 

EULE NAME: MAKE F4.5 

*300L 

0300 一 A9 0B LDA 闪 $0B 
0302 一 85 36 STA 。 $36 
0304 一 A9 03 LDA 并 8$03 
0306 一 85 37 STA  $37 
0308- 6C 82 03 JMP  ($03F2) 
030B 一 48 PHA 

030C- AD 00 Co0 LDA 8$C000 
030F 一  C9 14 CMP 井 $14 
0311 一 D0 03 BNE  $0316 


0313 一 4C 69 FF JMP SFF69 
0316--  C9 06 CMP  #$06 
0318 一 D0 03 BNE ” $031D 


05 


0314A 一 4C 5$ D3 JMP $D35S0 
031D--  C9 16 CMP 夫 $16 
03IF 一 Do0 03 BNE  $0324 
0321 一 4C A5 D6 JMP 8$D6A5 
0324-- A9 00 LDA 夫 $00 
0326-- 8D 10 Co STA 8$c0l0 
0329 一 68 PLA 

032A 一 4C F0 FD JMPp SFDFI 


26. 读 出 中 华 学 习 机 中 文 状态 下 屏幕 中 
的 字符 


编制 中 华 学 习 机 的 软件 时 , 有 时 要 读 出 在 中 文 状态 下 显 
示 在 屏幕 上 的 字符 。 下 面 这 段 程序 就 能 帮 您 进行 这 项 工作 。 

(1) 使 用 方法 : 

这 毁 BASIC 程序 包括 生成 子 程序 和 演示 两 部 分 。 程 序 
中 第 10 、20 行 存 人 $ 300 的 机 器 语言 子 程序 可 以 完成 把 
异形 国际 码 从 $ 07 单元 读 人 累加 器 ,经 USR ，DCOD 
子 程序 转换 成 学 习 机 内 码 后 送 入 $ 08 单元 。 程 序 里 的 100 
至 140 句 的 BASIC 子 程序 可 以 读 出 屏幕 第 V 行 第 I 格 的 
任意 字符 以 后 赋 给 C $ ; 100 句 用 来 处 理 ASC 码 ; 120 ， 


130 句 用 来 处 理 汉字 。 主 程序 30 句 以 键盘 输 和 人 方式 查询 须 
读 屏 幕 上 字符 的 行 数 与 格 数 , 行 数 放 在 V， 格 数 放 在 HH 。 第 
40 读 出 从 H 格 起 的 31 格 的 字符 并 赋 于 B $ 。50 句 询问 
将 读 出 的 字符 B $ 打印 在 何 处 。 使 用 时 可 以 参照 此 程序 的 


调用 方法 , 在 自己 的 软件 中 调用 子 程序 ， 
本 程序 在 磁盘 中 的 文件 和 名: FIND OUT CH .SET 


率 素 率 


FILE NAME: FIND OUT CH. SET 
5$ CLEAR 
10 DATA 165,7,32,137,195 
15 ”DATA 133.896 
20 FOR I= 768 TO 775 
: READ X 
: POKE I，X 
: NEXT 
INPUT "V，H= 2? “; V，H 
K =0 
: FORI=HTOH+30 
: GOSUB 100 
:B$=B$+C$ 
: NEXT 
5 INPUT"V，H=? ; V，H 
: VTAB V 
: HTAB HH 
: PRINT B $ 
60 ”END 


古 凶 


67 


100 


120 


130 


140 


D=37376+ 2*r(I 一 1 +06 
8*(y 一 1) 
: 王 = PEFK (D) 
:FF= PEEK (D + 1) 
:IFE< >127THENCSY = CHRS$ 
人 (F) 
: GOTO 140 
K=K 二 1 
:下 = 下 十 128 
: POKE 7F 
: CALL 768 
:W= PEEK (8) 
:IFK=1THENCS = CHR$(1 
27 ) 十 CHR$(W) 
: GOTO 140 
Cg$ =CHRS$S(W) 
: 攻 三 0 
RETURN 


27. 中 苇 学 习 机 时 钙 


这 个 程序 可 使 中 内 学 习 册 屏 摹 右上 角 出 现 一 
分 . 秒 的 电子 钟 , 还 具有 整 点 把 时 功能 , 同 对 不 受 各 种 命令 的 ( 卫 


O SS 命令 除外 ) 影 响 。 
(1 使 用 方法 : 


键 人 本 程序 后 四 8F0 G 调用 , 随 着 “ 哪 " 的 
BASIC 状态 , 此 时 您 可 以 用 芭 时 ,分 ， 秒 命令 输入 准确 时 间 训 


行 科 < 
(2) 注 意 喜 项: 


本 程序 运行 后 将 对 DOS 命令 直接 使 用 有 所 影响 , 但 把 


DOAS 命令 加 在 BASIC 程序 中 便 可 使 用 。 
本 程序 在 磁盘 中 文件 名 : CEC--1 CLOCK 


座 


宁 宁 


FILE NAME: CEC-I CLOCK 


*8F0 ，ASF 


08F0- AS 
08F8- CD 
0900 一 D8 
0908 一 03 
0910 一 A9 
0918-- 3B 
0920-- 8B 
0928 一 03 
0930 一 06 
0938 一 8B 


36 
09 
CE 


8D 
2C 


CC 09 
8 C0 
03 DO 
A9 14 
02 BC 
9D 8B 
3B 9 
8B 03 
03 4C 
02 、A2 


一 声 , 退 梧 到 


个 显示 时 、 
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0A08 一 01 
0A10 一 03 


0A18-- 20 00 03 4C 03 E0 00 00 
0A20- 一 00 A0 00 B9 00 09 9%9 00 
0A28 一 D0 C8 C0 93 DO F$ A0O 00 
0A30-- B9 93 09 9% 00 03 Cc8 c0 
0A38 一 90 D0 FS A0 05 B9 49 0A 
0A40 一 %9 F2 03 88 10 II7 4c 15 
0A48-- 0A 82 03 A6 4C 3 03 00 
0A50-- 00 00 73 00 B9 38 31 33 
0A58-- 2C 31 39 32 3A B9 38 31 


28.CEC-- 1 兼作 标准 彩色 卡 


当中 华 学 习 机 接 彩 电 时 , 调节 色彩 往往 不 太 方 便 , 有 了 本 
程序 的 帮助 , 可 以 方便 地 完成 些 项 工作 。 

(1 使 用 方法 : 

键 人 本 程序 后 直接 用 RUN 运行 ; 便 可 得 到 与 标准 彩色 
测试 卡 一 样 的 八条 垂直 彩 条 , 用 以 作为 参考 , 能 够 方便 、 迅速 
地 调 好 色彩 

本 程序 在 磁盘 中 文件 名 : SET COLOR CARD 


家 率 率 


FILE NAME: SET COLOR CARPD 
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HOME : GR 

DATA 15,13,7.12.1113.0 

A=10 

READ C: FOR B = ATOA + 4: COLOR= 
已 


VLIN OO，47 AT B 
NEXT B: A = A+5$ 
IEA > = 40THEN END 
GOTO 40 


名 巳 SS 证 岂 世 


29. 奇妙 发 声 子 程序 


中 华 学 习 机 BASIC 中 有 MUSIC 语句 可 发 声 , 但 发 
出 的 声音 单调 无 味 。 本 程序 可 以 随 着 给 定 参数 的 变化 发 出 丰 
富 多 采 的 音响 。 将 它 用 在 自己 的 程序 中 , 相信 会 增色 不 少 。 

(1) 使 用 方法 : 

打 入 下 列 三 个 命令 : 

POKE 768($ 300), 

POKE 769($ 301),Y 

CALL 770($ 302) 

这 时 就 可 听 到 动听 的 声音 。 

(2) 注 意 事 项 : 

X. 立 值 任意 , 但 必须 都 大 于 等 于 0, 小 于 256。 

本 程序 在 磁盘 中 文件 名 : STRANGE SOUND 


宁 素 率 
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FILE NAME: STRANG SOUND 


*300L 
0300 一 
0302 一 
0305 一 
0306 一 
0307 一 
0308 一 
030A 一 
030D 一 
0310 

0311 一 
0312 一 
0314 一 
0317 一 
0318 一 
031A 一 
031B 一 


23 
00 


FD 
30 
01 


FD 


03 


C0 
03 


C0 


$23 
3$0300 


30307 
SCc030 
30301 


$0311 
3S030 


3$0305 


23 


30. 伴 声 显示 


计算 机 在 显示 字符 时 往往 一 闪 而 过 , 没有 其 它 反应 。 本 
程序 能 使 屏幕 每 显示 一 个 字符 便 发 出 一 声 清脆 的 乐 声 。 

{1) 使 用 方法 : 

键 人 本 程序 后 , 在 监控 中 以 300G 或 在 BASIC 状态 下 
用 CALL768 调用 本 程序 , 计算 机 就 具有 乐 声 功能 了 。 芳 想 
恢复 正常 的 状态 , 只 需 按 CTRL- RESET 即 可 。 

(2) 注 意 事项 : 

本 程序 在 磁盘 中 文件 名 : SOUND PRESS 

灾 率 率 


FILE NAME: SOUND PRESS 


0300 一 A9 9C LDA 并 $9C 
0302 一 85$ Fl STA $F1 
0304- A9 30 LDA 并 430 
0306 一 85 07 STA 物 /7 
0308 一 A9 0! LDA 并 和 1 
030A4 一 8 08 STA 和 8 
030C- A9 1A LDA 共有 唱 A 
030E 一 8 36 STA 3$30 
0310-  A9 03 LDA 并 和 3 
0312 一 85 37 STA 条 7 
0314- 20 EA 03 JSR 3S03EA 
0317-- 20 03 RE0O JSR 姬 003 
031A--  C9  A0 CMP 并 $A0 
031C 一  F0 23 BEQ 30341 
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031E 一 
0320 一 
0321 一 
0322 一 
0323 一 
0324 一 
0325 一 
0326 一 
0328 一 
032A 一 
032C 一 
032E 一 
0331 一 
0332 一 
0334 一 
0335 一 
0337 一 
0339 一 
033B 一 
033C 一 
033D 一 
033E 一 
033F 一 
0340 一 
0341 一 
0344 一 


刍 科 有 名 B& 


日 


国 马 吕 


F0 


C0 


FD 


3$06 


$08 
$09 
$07 
$06 
$C030 


$0331 
$032C 


$09 
$032A 


$FDF0 


T5 


31. 高 分 辩 率 图 形 资料 压缩 程序 


您 也 许 有 许多 漂亮 的 高 分 辩 率 图 形 吧 ? 每 一 幅 图 存在 磁 
盘 上 要 占 8 开 , 这 样 一 张 磁盘 上 也 就 存 不 了 几 幅 图 了 。 而 下 
面 这 个 程序 则 可 帮 您 消除 这 种 烦恼 , 它 可 将 高 分 辨 率 留 形 大 
大 压缩 , 这 就 不 仅 增 大 了 存 贮 量 , 还 节省 了 调 人 图 形 的 时 间 ， 
真是 一 举 两 得 。 当 然 , 它 还 能 将 压缩 后 的 图 形 随 意 还 原 ， 

(1) 使 用 方法 : 

键 人 本 程序 后 , 还 需 输入 以 下 的 参数 : 

Xi 、Yl 分 别 代表 要 压缩 图 形 的 左上 角 座 标 ;X2、 立 2 分 
别 代表 要 压缩 图 形 的 右 下 角 座 标 。 将 它们 分 别 存 人 内 存 零 页 
单元 $5-- $8 中 去 :$5 :XI X2 YL Y2 
($0<<X<$ 28.$ 0<Y<$ C0) 
$9 与 $A 单元 中 存放 压缩 资料 的 首 地 址 ;在 $E6 中 存 
放 $20 代表 要 压缩 图 形 在 高 分 辩 率 第 一 页 , 存放 $40 则 
表示 在 第 二 页 。 设 置 完 以 上 各 值 后 用 8000G 即 可 将 相应 的 
高 分 图 形 压 缩 , 压缩 后 资料 末 地 址 存放 在 $0 与 $1 单元 
中 。 要 将 压缩 的 资料 还 原 前 在 $5 与 $6 单元 中 存放 还 原 
时 图 形 的 左上 和 角 座 标 (X.Y); $E6 同样 存放 页 数 ; $ 9 与 
$A 单元 存放 压缩 后 资料 的 首 地 址 。 这 些 值 设 定好 了 以 后 
用 807FG 便 可 将 压缩 资料 还 原 到 高 分 辨 率 屏 莫 上 去 。 

(2) 注 意 事项 : 

以 上 单元 $0- $1，$9- $A 中 存放 地 址 均 为 低 
位 在 前 , 高 位 在 后 。 

本 程序 在 磁 盘 中 文件 名 : COMPRESS HIRE 

率 涵 率 
FILE NAME: COMPRESS HIRE 
76 


8ss2ze2ReSzgRSss525S 


A5 


26 


马 总 妾 
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32. 在 TEXT 下 制作 图 表 


在 文本 状态 下 用 字符 制 表 或 作 图 , 需要 用 PRINT 语句 
和 TAB 函数 , 显然 比较 麻烦 。 
下 面 这 个 6502 汇编 语言 程序 可 在 文本 状态 下 在 屏幕 上 
作 图 , 还 可 配合 一 号 槽 口 打印 机 将 屏幕 内 容 硬 拷贝 下 来 。 
(1) 使 用 方法 : 
在 监控 状态 下 用 300G 或 在 BASIC 状态 下 用 
CALL768 即 可 执行 。 
执行 后 有 如 下 功能 : 
CTRI- 工 。 进入 反 显 状态 
CTRL- F 进入 闪烁 状态 
CTRL- N 返回 NORM AL 状态 
CTRL- P 将 字幕 硬 拷贝 到 打印 机 
CTRL- E 结束 程序 , 返回 原状 态 
(2) 注 意 事项 : 
本 程序 在 磁盘 中 文件 名 : MAKE TEXT 
素 鹿 宁 
FILE NAME: MAKE TEXT 
*9300LLL 
0300- 20 5S$8 FC JSR 。 $FC58 
0303-- 20 0C FD JSR $FDOC 
0306 一 C9 89 CMP 并 $89 
0308 一 DO 07 BNE $0311 
030A 一 A9 3F LDA ，” 井 $3F 
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030C 一 
030E 一 
031[ 一 
0313 一 
0315 一 
0317 一 
0319 一 
031C --- 
031E 一 
0320 一 
0322 一 
0324 一 
0327 一 
0329 一 
032B 一 
032D 一 
032F 一 
0332 一 
0335 一 
0337 一 
0339 一 
033A-- 
033D 一 


0342 一 
0344 一 
0347 一 


85 


到 直 总 对 


85 ， 


20 
A9 


03 


03 


03 


03 - 


03 
03 


| 


LDA 


$32 
$0303 
共 $86 
$031C 
失 $7F 
$32 
$0303 
并 $8E 
$0327 
闪 $FF 
$32 
$0303 
并 3$90 
$033A 
并 $85 
$0335 
SFDF0 
$0303 
并 $FF 
3$32 


$0540 
30303 
并 $00 
S$FF 
$C100 
检 $4C 


79 


0349 一 
034C- 
034F 一 
0351 一 
0353 一 
0356 一 
0357 一 
0359 一 
033B 一 
035D -- 
03 的 一 
0362 一 
03 绚 一 
0366-- 
0368 一 
036A 一 
036C -一 
036EF ~- 


写 总 冲 


BT 


人 让 QQ 有 AS 


习 尼 日 肥 员 避 号 28 


| 
1 


冒 刀 时 所 


遇 从 


Ci 


Cl 


Cl 


5S0619 
SFBC1 
##$00 
($28 ) YY 
$C102 


并 $28 
$0351 
并 $0D 
$C102 
SFF 
$FF 
并 $17 
$034C 
$034C 
并 $0D 
$Cl102 


33. 图 形 剪 辑 小 工具 


如 果 我 们 要 制作 一 个 画面 , 往往 需 花 费 许多 时 间 来 给 
制 。 其 实 我 们 完全 可 以 把 一 些 现 有 图 形 进 行 加 工 处 理 , 拼凑 
成 一 幅 新 图 形 。 下 面 这 个 算 序 可 把 高 分 辨 率 第 一 页 或 第 二 页 
的 还 面 中 前 下 一 块 图 形 , 贴 到 第 一 页 的 指定 位 置 上 。 
(了 使 用 方法 : 
健 人 本 程 序 后 还 要 输 下 以 下 参数 : 
06.、$07: 存 放 要 搬移 区 域 的 左上 角 坐 标 X1、Y1. 
08、$ 09: 存放 要 搬移 区 域 的 右 下 角 坐 标 叉 2、 立 2 。 
00、$ 01: 存 放 要 搬移 到 目的 区 域 的 左上 角 坐 标 X3、 

Y3 

10: 存 放 页 面值 ( $ 00 玫 示 在 第 一 页 内 搬移 、$ 20 表示 
从 第 二 页 搬移 ) 。 然 后 用 CALL24576 便 可 。 
(2) 注 意 事 项 : 
$0<X<S$ 28,$0<Y<$ co0 
本 程序 在 磁盘 中 文件 名 :CUT HIRE 


鲍 鲍 钢 


4 


率 率 率 
FILE NAME: CUT HIRE 
*#6000LLL 
6000- A0 00 LDY ”并 $00 
6002 一 98 TYA 
6003 一 48 PHA 
6004- 20 了 F4 JSR $F411 
6007 一 引 PLA 
6008 一 。 A8 TAY 
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A5 


8E 


8F 


8E 


8F 


8E 


8F 


$26 
$8E00,Y 
$27 
$8F00OY 


#$C0 
$6002 
$07 
$8E00Y 
$0A 
$8FOOY 


$10 

$0B 

$01 
$8E00Y 
$0C 
$8F0O,Y 
3$0D 
$06 

$OE 

$00 

$0F 
$0E 
($0A),Y 
$OF 
($0C),Y 
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34. 高 清晰 度 绘图 工具 


本 工具 程序 具有 两 项 功能 , 其 一 是 在 启 分 辨 率 某 部 分 填 
上 任意 大 小 的 方 格 , 方 格 内 的 颜色 是 黑色 .白色 和 条 纹 ; 第 二 
项 功能 是 定义 高 分 辩 率 画面 中 的 一 小 方 格 作 上 下 移动 。 

(了 使 用 方法 : 

@ 填 方 格 程序 ， 

POKE T, 方 格 最 顶 纵 座 标 

POKE B, 方 格 最 底 纵 座 标 

POKE 世 , 方 格 最 左 横 座 标 除 以 7 

POKE R, 方 格 最 右 横 座 标 除 以 7 

POKE C, 图 形 码 (0 为 黑色 , 127 为 白色 , 其 它 为 花 

纹 , 数值 范围 0 ~ 255) 
其 中 T=6,B=7,L=8,R=9,C=25. 
除 用 PO 开 E 命令 输入 外 , 也 可 在 监控 中 直接 键 人 参数 。 参 
数 输入 完毕 后 便 可 用 CALL796( 或 在 监控 中 用 31CG) 完 
成 填充 方块 。 
@ 移动 程序 。 

在 这 项 功能 中 T、B、L.、R 各 参数 的 输入 格式 与 内 容 与 
填 方 格 程序 相同 。 

参数 输 完 后 用 : 

CALL768( 上 卷 ) 

CALL782( 下 卷 ) 
可 使 方 格 内 图 形 分 别 向 上 、 下 卷 动 一 行 。 

(2) 注 意 事 项 : 

本 程序 在 磁盘 中 文件 名 : DRAW SUB 


8 


03 


03 


$0302 


$033D 


$06 
$0310 


S07 


并 $00 


85 


86 


20 11 F4 JSR  $F411 


68 


03 


03 


F4 


03 


F4 


PLA 
了 TAX 
LDY 
LDA 
STA 

CR 


LDY 
JSR 


$09 

$19 
($26),Y 
$08 
$0334 


$032B 
$00 
$033C 


$031E 


$0365 


并 $00 
$F411 
$26 
$00 
$27 
$01 
$0365 
并 $00 
$F411 


0357 一 ”68 PLA 

0358 一 AA TAX 

0359 一 A4 09 LDY 。 $09 
03$B 一 Bl1 26 LDA  ($26),Y 
035SD- 91 00 STA ($00),Y 


035F 一 88 DEY 

0360 一 C4 08 CPY  $08 
0362 一 ”BO0 F7 BCS $035B 
0364 一 ”60 RTS 


35. 趣味 文本 清 屏 


在 文本 状态 下 , 清 屏 只 有 HOME 这 个 命令 , 若 想 使 清 
屏 变 得 生动 有 趣 , 那 就 请 使 用 下 面 的 程序 。 

(1) 使 用 方法 : 

这 个 程序 用 法 十 分 简单 。 在 监控 状态 下 ,用 300G 可 运 
行 ;在 BASIC 中 用 CALL768 就 可 调用 。 

本 程序 在 磁盘 中 文件 名 : TEXT CLEAR 


素 床 率 


FILE NAME: TEXT CLEAR 
*#300LL 


87 


88 


0300 一 
0302 一 
0304 一 
0306 一 
0308 一 
030B 一 
030D 一 
030OF 一 


0311 一 


0313 一 
0314 一 
0316 一 
0318 一 
031A- 一 
031C 一 
031F 一 
0320 一 
0322 一 
0323 一 
0325 一 
0327 一 
0329 一 
032B 一 
032D 一 
032F 一 
0331 一 


吕 六 首 S32R SS 


OF 


36. 从 屏幕 上 落下 的 字符 


这 是 帮 您 摆脱 枯燥 的 HOME 语句 的 又 一 良法 。 当 您 
运行 它 时 , 会 发 现 屏幕 上 的 字符 纷纷 落下 , 直到 屏幕 被 完全 清 


除 为 止 。 
(1) 使 用 方法 : 


键 人 本 程序 后 , 您 只 需 在 监控 下 输入 300G 或 在 BASIC 
状态 下 用 CALL768 调用 , 便 可 看 到 有 趣 的 图 像 。 
本 程序 在 磁盘 中 的 文件 名 : TEXT CLEAR DOWN 


] 


率 束 


FILE NAME : TEXT CLEAR DOWN 


站 300LLLL 
0300 一 。 A5 
0302 一 48 
0203 一 A9 
0305 一 A8 
0306 一 85 
0308 一 A9 
030A 一 ”85 
030C 一 A5 
030E 一 18 
030F 一 69 
0311 一 71 
0313 一 C8 
0314 一 85 


4E 


$22 


89 


0316 一 
0317 一 
0319 一 
031B 一 
031D 一 
031E 一 
0320 一 
0322 一 
0323 一 
0325 一 
0327 一 
0328 一 
032A 一 
032C 一 
032E- 一 
0330 一 
0332 一 
0334 一 
0336 一 
0339 一 
033B 一 
033D 一 
033F 一 
0340 一 
0342 一 
0344 一 
0346 一 


21 


4F 


$21 
$0314 
$4F 


并 $D0 
($06),Y 


$22 
$ 4F 


$23 
$0322 
34E 
$24 
3S4F 
$22 
$0322 
短 B3B 
($28 ) ,Y 
并 $A0 
$0355 


并 $A0 

($28 ),Y 
$25 

并 $17 


0348 一 
034A 一 
034B 一 
034D 一 
034F 一 
0352 一 
0353 一 
0355 一 
0357 一 
0359 一 
035B 一 
035E 一 
0360 一 
0362 一 
0364 一 
0365 一 
0367 一 
0369 一 
036B 一 
036D 一 
036F 一 
0371 一 
0372 一 
0374- 一 
0375 一 
0377 一 
0379 一 
037B 一 
037D 一 
037F 一 
0380-- 
0381 一 


艺 吕 站 六 六 2 号 R 8 


关 
一 


ES 


OA 


FC 


91 


37. 文本 清 屏 总 集 


这 个 程序 汇总 了 文本 清 屏 的 九 种 方法 , 即 由 上 至 下 . 由 下 
至 上 、 由 左 至 右 、 由 右 至 左 . 由 两 边 向 中 间 、 由 中 间 向 两 边 、 由 
四 周到 中 间 等 等 , 若 把 本 程序 加 到 自己 能 主 序 中 去 , 那 一 定 会 
十 分 有 趣 ， 

(1) 使 用 方法 : 

键入 本 程序 后 直接 用 RUN 运行 ,然后 输入 1 至 9 的 数 
字 , 便 能 看 到 九 种 清 屏 的 演示 。 如 果 您 对 哪 一 种 感 兴 趣 , 便 将 
其 对 应 的 子 程序 摘录 下 来 即 可 。 

(2) 注 意 事项 : 

本 程序 在 磁盘 中 文件 名 : TEXT CLEAR ALL 


素 宁 率 

FILE NAME : TEXT CLEAR ALL 
IO0 鱼 =CHRS (23) 
20 REM FIRST--2 
30 FORI= 1TO 800 

: PRINT “B-"; 

: NEXT I 
40 INPUT 及 
和 0 IFK<=0ORK> =1l0THEN 

END 

60 “ONK GOSUB 80140,200,340,420,500,$60,620,690,260 
70 “GOSUB 30 
80 FORI = 17To24 
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VTAB I 

CALL 一 868 

NEXT I 

RETURN 

FORI= 24TO1STEP -1 
VTAB 

CALL 一 868 

NEXT I 

RETURN 


: Y=24 :X=0 
:PP= 一 868 


X=X+1l 


1 


VTAB 


: CALL P 
:， VTAB Y 
: CALL P 


IF X = 13 THEN RETURN 
GoOTO 210 

A$ = CHR$ (32) 

FORX = 40TO1STEP 一 1 
FORY = 24TO1STEP 一 1 
HTAB X 


， VTAB Y 


PRINT A$ ; 
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610 


NEXT Y 
NEXT X 
RETURN 
A$ = CHR$ (32) 
FORX = 1TO 40 
FEOR Y 1 TO 24 
HTAB X 


: VTAB Y 


PRINT A$ ; 
NEXT Y 
NEXT X 
RETURN 

FORI = 17To20 
X=20 一 工 
POKE 32,X 


: POKE 33,( 2* 工 ) 
: CALL 一 936 


NEXT I 

RETURN 

FOR I = 13 TO 24 
HTAB 1 


: VTAB I 

: CALL 一 868 
: VTAB 2 一 I 
: CALL 一 868 


NEXT I 
RETURN 


620 


630 


630 


750 
760 


FOR I =1 TO 12 


: POKE 35SjJ 
: CALL 一 936 


POKE 3424 一 工 


: CALL 一 936 


POKE 33,24 


: POKE 34,0 

: POKE 33; 

: POKE 32I 一 1 
: CALL 一 936 


POKE 32( 40 - (2*I - 1)， 


: CALL 一 936 
: POKE 320 
:， POKE 33,40 


NEXT I 
HOME 


:RETURN 


HTAB 1 


: FORI=07To5 


VTAB I++ 1 


: CALL 一 868 


VTAB IT 十 7 


: CALL 一 868 


VTAB I++ 13 


: CALL 一 868 


VTAB I 二 19 


: CALL 一 868 


NEXTI 
REIURN 
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38. 文本 的 左右 绕 着 


在 某 些 “音乐 创作 ”软件 中 , 其 操作 提示 是 写 在 一 条 彩带 
上 从 右 至 左 绕 卷 , 这 种 有 趣 的 形式 也 许 您 想 加 在 自己 的 程序 
中 去 。 本 程序 将 助 您 一 臂 之 力 。 

(1) 使 用 方法 : 

键 和 人 程序 后 , 往 零 单元 送 速度 参 数 : 

POKE1 ，200 (或 在 监控 中 输入 ) 随 后 可 用 CALL768 
调用 , 这 时 整 屏幕 将 从 左 至 右 绕 卷 ; 若 要 想 只 在 一 定 文本 范围 
内 绕 卷 , 可 用 : 

POKE32, 左 极限 值 0<<X<< 39) 

POKE33, 右 极限 值 0 人 <X<< 40) 

POKE34, 上 极限 值 0 人 <X< 24) 

POKE35, 下 极限 值 0<X<< 24) 
想 停止 绕 卷 , 可 按 任 意 键 即 可 退出 ， 


(2) 注意 事项 : 
本 程序 在 磁盘 中 文件 名 : TEXT R-- 
率 床 率 
FILE NAME: TEXT R --L 
*300LLL 
0300 一 A5 20 LDA $20 
0302 一 18 CLC 
0303 一 65 21 ADC $21 


0305 一 8D 61 03  STA $0361 
0308-- CE 61 03 DEC $0361 
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030B 一 
030D 一 
030E 一 
030F 一 
0312 一 
0315 一 
0317 一 
031A 一 


031B 一， 


031D 一 
031F 一 
0322 一 
0323 一 
0325 一 
0326 一 
0327 一 
0328 一 
032B 一 
032D 一 
032E 一 
0330 一 
0331 一 
0332 一 
0333 一 
0335 一 
0337 一 
0339 一 


20 


01 


EE 


03 


03 


$23 


$FBC1 
$0361 
($28),Y 
$0362X 


$22 
$030E 
$0361 


$23 


$FBC1 
($28),Y 


($28),Y 


并 $01 
$22 
$0327 
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033A 一 C4 
033C 一 ”10 
033E 一  A6 
0340 一 ”CA 
0341 一 8A 
0342 一 20 
0345 一 。 A4 
0347 一 “BD 
034A 一 91 
034C 一 CA 
034D 一  E4 
034F 一 10 
0351 一 AS 
0353 一 20 
0356 一 AD 
0359-- 10 
035SB 一 A9 
035SD- 8D 
0360- 600 
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FB 


03 


FC 


32. 文本 的 上 下 绕 卷 


在 文本 状态 进行 一 些 屏幕 动态 处 理 可 以 增加 程序 的 趣味 
性 , 下 面 这 个 程序 同 “ 文 本 的 左右 绕 卷 " 的 意思 是 类 同 的 , 只 不 
过 做 的 是 屏幕 上 下 绕 卷 。 

(1) 使 用 方法 : 

往 零 单元 送 速度 参数 

POKE 0 ,200 

要 想 进 行 部 分 文本 的 上 下 绕 卷 ， 解 决 办 法 是 开 窗 口 ( 参见 
“文本 的 左右 绕 卷 " 一 文 ) 然后 用 CALL 768 即 可 调用 ， 
按 任意 键 停止 绕 卷 。 


(2) 注 意 事项 
本 程序 在 磁盘 中 文件 名 : TEXT U-D 
来 来 
FILE NAME: TEST U-D 
*300LLL 
0300 一 AS 20 LDA $20 
0302 一 18 CLC 
0303 一 .63 21  . ADC $21 


0305-- 8D 6D 03  STA $036D 
0308-- CE 6D 03 DEC $036D 


030B 一 A5 23 LDA $23 
030D 一 18 CLC 
030E 一 E9 0 SBC 并 $01 


0310 一 20 Cl FB JSR $FBC1 
0313-  AC 6D 03 ，LDY $036D 
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0316-- 
0318-- 
031B 一 
031C- 
031E-- 
0320 一 
0322 一 
0323 一 
0325 一 
0326 一 
0327 一 
032A 一 
032C- 
032E 一 
0330 一 
0332 一 
0333 一 
0334 一 
0337 一 
033A 一 
033C- 
033E-- 
033F 一 
0341-- 
0343 一 
0344 一 
0345 一 


03 


03 


($28),Y 
$036E ,Y 


$20 
$0316 
$23 


并 $01 


并 $01 


0347 一 C5 22 CMP 2 
0349- DO DA BNE $0325 
0348 一 AC 6D 03 LDY $036D 
034E 一 A5 22 LDA $22 
0350- 2 加 CI FB JSR $FBC1 
0353 一 B9 6E 03 LDA $036E ,Y 
0356 一 91 28 STA ($28 ) ,Y 
0358 一 
0359 一 
035B 一 
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C4 20 CPY $20 
10 F6 BPL $0353 
03SD 一 AS5 00 LDA $00 
03SF 一 20 A8 FC JSR $FCA8 
0362 一 AD 00  C0 LDA $Cc000 
0365 一 10 A4 BPL $030B 
0367 一 A9 00 LDA 并 $00 
0369 一 8D 10 CO STA $C010 
036C 一 60 
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40. 趣味 清 屏 ( 一 ) 


当 您 拥有 本 程序 后 将 使 您 的 高 分 辨 率 清 屏 又 多 了 一 种 有 
趣 的 方法 。 这 个 程序 能 够 使 屏幕 从 上 下 向 中 央 清 除 , 并 在 清 
屏 的 同时 伴 有 奇妙 的 音响 。 

(II) 使 用 方法 : 

键 人 本 程序 后 , 还 需 置 定 一 个 参数 才 可 运行 。 如 果 您 想 
清除 高 分 辩 率 第 一 页 的 图 形 , 则 向 零 页 单元 $ E6 送 人 
$ 20, 即 在 监控 中 键 人 王 6: 20; 若 想 清除 高 分 辩 率 第 二 页 图 
形 , 则 键 人 E6:40, 然后 用 300G 或 CALL768 便 可 达到 目 
的 。 

(2) 注意 事项 : 


本 程序 在 磁盘 中 文件 名 : CLEAR HIRE U . D 
本 永 站 
FILE NAME: CLEAR HIRE U. D 
300LL 
0300- A2 00 LDX 。”#$00 
0302 一 8A TXA 


0303 一 8D 453 03  STA $0345 
0306 一 20 ID 03 JSR 8031D 
0309 一 A9 C0 LDA 并 $C0 
030B-- ED 43 03 SBC $0345 
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六 岂 避 


局 


EB 


F4 


03 


C0 
03 


C0 


$0302 


$F411 
并 $00 


($26 ),Y 


并 $28 
$0323 


$0344 


$0330 
$C030 
$0345 


$033A 
$C030 
$032E 


$O2F0 
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41. 趣味 清 屏 ( 二 ) 


这 又 是 一 个 使 高 分 辩 率 清 屏 变 得 生动 有 趣 的 程序 。 它 能 
够 使 屏幕 从 中 间 向 两 边 逐 渐 被 清除 , 并 且 伴 有 奇妙 的 音响 。 

(1) 使 用 方法 : 

键 人 本 程序 后 , 还 需 键 人 一 个 参数 才 可 运用 。 如 果 您 想 
清除 高 分 辩 率 第 一 页 的 图 形 , 则 在 监控 中 键 信 E6: 20; 若 想 
清除 高 分 辨 率 第 二 页 的 图 形 , 则 请 键 信 E6: 40, 然后 用 
CALL768( 多 300) 便 可 调用 这 个 子 程序 ， 


(2) 法 总 事 项 : 
本 程序 在 磁盘 中 文件 名 : CLEAR HIRE < MID > 
素 宁 字 
FEILE NAME: CLEAR HIRE <MID > 
站 300LL 
0300-  A9 14 LDA ”##$14 
0302 一 8D 4$ 03 STA $0345 
0305 一 A2 00 LDX 并 $00 
0307 一 8A TXA 
0308 一 48 PHA 
0309 一 20 1 F4 JSR $F411 
030C 一 68 PLA 
030D 一  AA TAX 
030E 一 AC 453 03 LDY $0345 
0311 一 A9 00 LDA #$00 
0313- 91 26 STA  ($26),Y 
0315 一 38 SEC 
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ED 45 03 


20 2E 03 
CE 45 03 


TAY 


#$27 
$0345 


并 $00 
($26) ,Y 


#$C0 
$0307 
$032E 
$0345 
$0305 


并 $11 


$0332 
SC030 
并 和 7F 


$033B 
SC030 


$0330 
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42. 趣味 清 屏 (三 ) 


这 个 程序 将 使 您 的 高 分 辨 率 清 屏 从 两 边 向 中 间 逐 渐 推 近 ， 
并 且 伴 有 奇妙 的 音响 。 

(1) 使 用 方法 : 

键 人 本 程序 后 , 还 需 键入 一 个 参数 才 可 运用 。 如 果 您 想 
清除 高 分 辩 率 第 一 页 的 图 形 , 则 监控 中 键 信 E6: 20; 若 想 清 
除 高 分 辩 率 第 二 页 的 图 形 , 则 请 键 人 AE6: 40, 然后 用 
CALL768( $ 300) 便 可 调用 这 个 子 程序 。 

(2) 注 意 事项 : 

本 程序 在 磁盘 中 文件 名 : CLEAR HRE >MID< 


让 素 


FILE NAME CLEAR HIRE >MID< 


*#300LL 

0300-  A9 00 LDA #$00 
0302 一 8D 4A 03  STA $034A 
0305 一 A2 00 LDX 并 $00 
0307 一 8A TXA 

0308 一 48 PHA 

0309 一 20 1 F4 JSR $F411 
030C 一 6 PLA 

030D 一  AA TAX 

030E 一 AC 4A 03 LDY $034A 
0311 一 A9 00 LDA 并 $00 
0313 一 91 26 STA ($26),Y 
0315 一 38 SEC 
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27 
4A 


> 央 日 


当日 


EC 


03 


03 


03 


03 


C0 


C0 


并 $27 
$034A 


##$00 
($26),Y 


并 $C0 
$0307 
$0333 
3$034A 
$034A 
#$14 
$0305 


并 $2F 


$0337 
SC030 
并 SAA 


$0340 
$C030 


$0335 
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43. 旋转 清 屏 


在 高 分 辨 率 状态 下 , 也 可 以 旋转 清 屏 。 本 程序 可 由 内 到 
外 清 屏 , 不 妨 试 试看 。 
(1) 使 用 方法 : 
键 人 以 下 程序 后 , 直接 使 用 RUN 命令 即 可 。 
由 于 本 程序 带 有 演示 性 质 , 若 想 把 它 加 到 自己 的 程序 中 
则 须 去 掉 200 句 及 40 句 中 的 GOSUB200。 
(2) 注 意 事项 : 
本 程序 在 磁盘 中 文件 名 : ROT CLEAR 
FILE NAME: ROT CLEAR 
10 “POKE 2320 
: POKE 233,96 
20 FORI =0 TO 48 
: READ A 
: POKE 24S76 十 工 A 
: NEXT 
30 “DATA 10,4,0,44,63,47,45.4 
5 ,60,63,63,55,46,45,45， 
45 ,36,60,63,63,63,55,54 
46 ,45,45,45,45,36.36.60， 
63 ;63,63,63,S3,54,34,46， 
45 ,43,45,45,45,36,36,306， 
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GOSUB 200 
X= 1106 


: Y = 72 
SCALE = 1 
: ROT = 0 


70 


吕 名 


DRAW 1ATX,Y 


: FORI =1To26STEP2 
:X = X+1ll 

:YY = Y+06 

:FORJ =1 To4*I 一 4 
: DRAW 1 AT ,Y 


X=X-(J<=2*r(I-- 1) 
ANDJ > 工 一 1)*1l 十 
(>(I 一 1)*3)*1l 
:YY=Y+(J<=3*( 
I 一 IJ)ANDJ >2*(I 一 

1 )) *6 一 (J<I)*6 

NEXT JI 

HGR 

END 

HGR 

HCOL OR= 3 

FORI = 1TO 159 
HPLOT Oo ,ITO 279,I 
NEXT 

HCOLOR =0 
RETURN 
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44. 中 华 学 习 机 全 屏幕 绘图 工具 

这 是 一 个 功能 比较 完善 、 操作 灵活 简便 的 实用 中 华 学 习 
机 键盘 绘图 程序 ， 它 可 以 绘图 写字、 删改 等 。 打 印 方式 可 设 
为 正常 放大、 反 相 、 反 相 放 大 四 种 。 

(1) 使 用 方法 : 

运行 本 程序 后 , 自动 进入 中 文 状 态 , 并 显示 中 文 菜单 , 介 
绍 各 键 的 功能 。 按 空格 键 进 入 绘图 状态 . 立 、`、G 、B 、H 键 
分 别 为 左上 、 左下 , 右 下 .右上 移动 ;TI 、M 、J 本 .有 分 别 为 上 
下 左右 移动 。 画 图 时 先 按 一 下 L 键 , 然 启 移动 以 上 八 个 键 中 
的 任 一 个 , 则 留 下 光 点 轨迹 。 连 续 按 某 一 个 键 , 可 画 某 一 方向 
一 条 直线 ; 同时 按 两 个 键 则 留 下 曲线 轨迹 。 按 O 键 , 然后 移 
动 上 述 八 个 键 便 可 达到 修改 . 删除 目的 。 按 C 键 可 以 清除 全 
屏幕 并 返回 主 菜单 , 按 T 键 则 保留 屏幕 画面 , 直接 返回 主 菜 
单 。 返回 主 菜单 后 , 按 空 格 键 可 以 重新 进入 绘图 状态 。 在 绘 
图 状态 下 , 按 $S 键 可 以 将 图 形 存盘 ; 按 W 键 表 示 要 打印 图 形 ， 
此 时 , 机 器 会 进入 中 文 状态 , 并 显示 提示 信息 。 可 根据 需要 按 
1- 4 中 的 一 个 键 选 择 打 印 方式 。 若 想 调 出 已 存盘 的 图 形 ， 
只 需 按 A 键 , 再 输入 图 形 文件 名 即 可 。 

(2) 注 意 事项 : 

本 程序 在 磁盘 中 文件 名 : DRAW TOOL.， CH 


文件 名 : DRAW TOOL CH 
10 REM 全 屏幕 绘图 软件 
20 HGR:X=140:Y =95$:B = ?"L” 
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30 PR## 3: PRINT :HOME 

40 GOTO 180 

50 PRINT CHR$ (18) 

60 VTAB 1 HTAB 10 PRINT“ 全 屏幕 绘图 软 
件 ” 

70 HTAB 2: PRINT “Y 一 左上 ";: HTAB 23: PR 


INT 7G-- 左下 
80 HTAB 2: PRINT “B-- 右 下 ";: HTAB 25: PR 
INT:H-- 右上 ” 
90 HTAB 2:PRINT “I 一 向 上 “; : HTAB 25: PR 
INT “M 一 向 下 ” 


100 HTAB 2: PRINT “KK 一 向 右 “;: HTIAB 23: P 
RINT “J 一 向 左 ” 

110 HTAB 2: PRINT “L- 画图 “;: HTIAB 2S: P 
RINT “0-- 掠 图 

120 HTAB 2: PRINT “C- 清除 “; : HTAB 25: P 
RINT“T- 保留 ” 

130 HTAB 2: PRINT “S- 存盘 “;: HIAB 2S: P 
RINT :A 一 调 盘 

140 HTAB 2 PRINT “W 一 打印 “;:HTAB 253: P 
RINT “E-- 结束 " 

1$0 VTAB 10. HTAB 10 PRINT “ 按 空格 键 运 
160 GET E$: IF E$ 三 ”THEN RETURN 

170 GOTO 160 

180 GOSUB 3S0 

190 GOTO 390 
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200 W1 = PEEK (-- 16384)IIF WwWl > 127T 
HEN A$ =CHR (Wi - 128):POKE 一 16368 
,0 GOTO 240 
210 HPLOT XY HCOOLOR= (0 HPLOT X Y HC 
OLOR= 3 

220 正 B$ ="L THEN HPLOT XY 

230 GOTO 200 
240 正 A$g ="A' THEN 650 
230 正 A$ ="Y OR A$ ="G' OR Ag ="H' 
OR Ag$ = "B' THEN GOSUB 730: GOTO 340 
2600 FAS = 小 OR AS =? KI OR AS 一? 
OR Ag$ ="M' THEN GOSUB 610: GOTO 340 
270 IFA$ =“E-THEN HOME: TEXT : PR# 
3: PUINT: HOME: PRINT CHR $(18): END 
280 IF Ag =“C?THEN 20 

290 IFA$ = ”T?THEN 380 

300 IF A$ = ”"S?"THEN 410 

310 IFA$ =“W?THEN 5S00 

IF A$ 一 “L "OCR A$ ="O7"THEN B$=A 

$ : GOTO 3350 

330 CALL 一 198: GOTO 200 

240 C$ = 4 
350 IF 耻 = “L7THEN HPLOT XY: GOTO 2 


360 HPLOT X,Y: FORI = 1TOSNEXT 工 
HCOLOR = 0 HPLOT X,Y 
370 HCOLOR= 3 GOTO 200 
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380 PR 塘 3 PRINT :HOME :GOSUa SO 

390 POKE - 16300, Q_ POKE -- 16302 0 

400 GOSUB 70: GOTO 200 

410 PR## 3:PRINT: HOME 

420 INPUT " 请 输入 存盘 的 文件 名 : ;Ng 

430 CALL 4 3089 

440 Dg8 = CHRS (4) 

450 VTAB 和 HTAB 2: ERINT “正在 存盘 , 请 
稍 等 .. ..,. 

460 PRINT D8 ; "BSAVE" ;NS$; ”,，A$2000，L$2000 


1 


470 VTAB 8:HTAB 2: PRINT ”存盘 结束 ” 


480 FORI = 1TO 2000 NEXTI 

490 GOTO 390 

S00 PR## 3: PRINT : HOME 

510 VTAB 5 HTAB 人 PRINT“ 请 选择 打印 方 
式 :1- 正 向 ; 2 一 放大 ; 3 一 反 向 ;4 一 反 向 放大 ” 
520 GET V$ 

530 IF VSg = “ 才 THEN PR 并 1 二 POK E1913,1: 
PRINT CHR$ (17): PR# 0 GOTO 580 

540 IF  Vg = “2THEN PR# 1 POKE 1913， 
6063: PRINT CHR$ (17): PR 井 0 GOTFO 580 
550 IF Wi = "3 THEN PR# 1 POKE 1913， 
33: PRINT CHR$ (17): PR## 0 GOTO 5$80 
560 IF WwW = “4 THEN PR# 1 POKE 1913， 
97: PRINT CHR$ (17): PR 并 0 GOTO 580 
570 GOTO 430 
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5S80 PR 并 3: PRINT : VTAB 10 PRINT “ 硬 乒 


贝 完 成 
S90 FORI =1TD 1000 NEXTI 
600 GOTIO 390 


610 IFAS$ ="THENY = YY 一 1 上 RETURN 
620 IFAS$ =”“]THENX =X 一 1 RETURN 
630 IFA$ ="K'THENX = X +1L RETURN 
640 IFAS$ = "MT HENY = Y 十 荆 RETURN 
650 .PR# 3: PRINT : HOME 

660 INPUT “请 输入 调 出 的 文件 名 : MS$ 

670 CALL 43089 

680 VTAB 5$: HTAB 2: PRINT “正在 调 盘 , 请 
稍 等 .. ...， 

690 PRINT CHR$ (4);"BLOAD 汪 MS 

700 VTAB 8: HTAB 2: PRINT “ 调 盘 结 束 ” 

710 FORI = 1TO 2000 NEXT 

720 GOTO 390 

730 IF A$ =”"Y" THEN X =X-1Y=Y 一 
1 RETURN 
740 IF AS$ 
1 RETURN 
750 IF Ag$ ="?"B" THENX =X+LY=Y+ 
1 RETURN 

760 IF Ag = “HTHEN X 
1: RETURN 

770 HCOLOR= 3 HPLOT 0,0TO279,0 TO 27 
9,191 TO 0, 191 TO 00 

780 RETURN 
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| 


和 
中 


“G"” THEN X 和 一 坊 Y 三 YY 十 


X+LiY=Y 一 


45. 图 形 表 制作 工具 


图 形 表 是 高 分 辩 率 作 图 的 一 项 重要 内 容 , 它 虽然 很 好 使 
用 , 但 在 用 之 前 的 造 表 工 作 却 十 分 繁杂 , 费事 。 下 面 这 段 程序 
能 帮 您 摆脱 造 表 的 艰难 。 您 只 需 在 屏幕 上 勾 出 图 形 ， 
计算 机 便 能 自动 把 它 转化 为 造形 表 。 

(1) 使 用 方法 : 

键 人 本 程序 后 便 可 直接 运行 。 首 先 输入 要 建立 造形 表 的 
个 数 , 然后 便 进入 造 表 状态 , 屏幕 上 出 现 一 个 38 x 38 的 方 
阵 , 用 IJ K、M 四 键 控制 一 个 闪烁 的 小 短线 在 方 阵 中 移 
动 . 若 要 画 点 , 就 按 了 键 , 要 清除 一 个 点 , 则 按 O 键 . 当 画 完 并 
确认 无 误 后 , 按 下 下 键 ,然后 用 I、J K、M 四 键 把 整个 图 
形 扫描 一 由, 再 按 E 键 ， 这 个 造形 便 存 人 内 存 , 然后 就 可 进 
行 下 一 个 造形 的 绘制 . 若 所 有 造形 均 输 入 完毕 ,计算 机 会 给 您 
提供 一 个 显示 各 个 造型 查看 的 机 会 。 只 要 输入 第 几 个 造型 ， 
屏幕 上 便 会 显示 出 这 个 图 形 。 在 显示 完 一 个 图 形 后 , 按 芭 
键 可 进入 存盘 状态 , 其 它 键 则 继续 显示 图 形 。 按 下 久 键 后 
稍 候 片 刻 , 等 待 计算 机 计算 图 形 表 的 长 度 。 待 提示 出 现 后 ， 
输入 文件 名 , 计算 机 便 会 自动 存盘 并 退出 这 个 程序 .造形 表 的 
起 始 地 址 为 $ 6000, 也 就 是 说 , 以 后 调 人 这 个 造形 表 , 在 使 
用 前 , 要 键 人 :POKE232,0;POKE233,96, 才 可 调用 它 . 

(2) 注 意 事项 : 

造形 表 的 扫描 有 一 个 规则 , 即 不 能 出 现 两 个 连续 向 上 的 
向 量 , 所 以 遇 到 两 个 连续 向 上 的 点 , 尽量 用 其 它 方式 扫描 , 而 - 
不 直接 向 上 。 
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本 程序 在 磁 琢 中 文件 名 : MAKE TABLE 
本 率 素 
FILE NAME: MAKE TABLE 
0 Goro 100 
1 HCOLOR = H 
: HPLOT AS 一 4B*5- 2To 
AS 一 1,B*35 一 2 
: RETURN 
2 。”HCOLOR= A%( BA) * 3 
: FORI=Ar*rS 一 4TOA*5S- 一 
1 HPLOT 1LB*S 一 4TO TB* 
3 一 | 
: NEXT 
: HPLOT A + 235B + 80 
: GOTO 32 
I10 K=(M+1)*(M< >0) + 
(2 一 N)*(N<>0) +4*G 
: RETURN 
20 ” POKE W + S,L 
:S=S+1 
=0 
: 工 =0 
: RETURN 
32 H=(l-Ao%(BA))*3 
: GOSUB 1 
40 GET AS$ 
: P = ABC(A$) 
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70 


103 


105 


: B 


:H=3 一 HH 
: GOSUB 1 


M=(P=77)-(P=73) 


:IN=(P=73$) 一 (P=74) 
2:B=M+B 
:2A= 王 N 十 A 


A=A+(A=0)-(A=39) 


=B+(B=0) 一 (B=39) 
IFP= 80THEN A%(B,A) = 1 
: GOTO 2 
IFP = 79 THEN A% (B, A) = 0 
: GOTO 2 
RETURN 


INPUT "HOW MANY ? (1-255)“; Z 


DIM A% ( 38,38 ) 
W = 24376 


: POKE W,，Z 
: POKE W + 10 
:2S=2*97Z+T+2 


FORE = 1TOZ 


:V=INT(S/ 256) 
: POKE W + 2*E,S 一 V*256 
: POKE W + 2*E+1V 


HGR 2 


: HCOLOR= 3 
: FORI = 0TO 190 STEP 5 
: HPLOT I, 0 TO I，19%0 
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118 


107 


108 
110 
122 


125 


128 


130 
140 
1530 
160 
170 
180 
190 


200 


: HPLOT 0,ITO 190I 
:， NEXT 


A = 19 


:B=A 


GOSUB 32 
IFP < > .69THEN 108 
FE =0 


IFE <ZTHEN FOR R 
38: FORT = 1To38 


: A%(R,T) =0 
: NEXTTR 


POKE W 十 $,L 


:S=S+1 
: POKE W + S$,0 


20 


: 工 =0 
G=A%(B，A) 

: GOSUB 32 

:JIFP= 69THEN 190 
GOSUB 10 
:IFF=2ANDK>0ANDK< 
4 THEN 130 

IFF <. 2 THEN 15S0 
GOSUB 20 
L=L+K*8 “FF 
F=F+1 

IFF > 2THEN GOSUB 
GOTO 125 


=1TO 


:3S=S+1l 
:NEXT E 


1000 


，TEXT 


INPUT A 


: HGR 2 

: HCOLOR= 3 

: POKE 232.0 

: POKE 233,96 

: SCALE= 1 

: ROT= 0 

: DRAW A AT 140.95 

， GET MS$ 

: IF M 三 “人 "THEN 2000 


GOTO 1000 
H = 24$76 
A = PEEK (HI) 


: B=PEEK (H 二 1) 
:IFA=BANDA=0THENH = 


H 二 1 


:INPUT "FILE NAME:"; NAS$ 
: LE =H 一 24575 


: PRINT CHR$ ( 4) ;” BSAVE "; NA 


$;“，A$ 6000L“，LE 


: END 


2020 


H=H+1L 


: GOTO 2010 
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46. 高 分 辩 率 图 形 趣味 显示 ( 一) 


这 个 程序 能 使 高 分 辨 率 图 形 向 上 、 向 下 移动 显示 及 移动 
清 屏 , 使 图 象 动感 性 强 、 生动 活泼 。 

(1) 使 用 方法 : 

先 输入 BASIC 语言 程序 , 它 的 目的 是 造 表 , 而 显示 时 
用 查 表 法 则 比 计算 法 快 得 多 (此 程序 在 以 下 几 个 趣味 显示 程 
序 中 也 用 得 到 ) , 输 完 后 直接 运行 便 可 在 内 存 中 自动 生成 一 张 
表 。 然 后 输入 机 器 语言 子 程序 , 它 分 四 个 部 分 , 其 人 口 地址 为 : 
$ 343, 为 向 上 移动 显示 ; $ 369 为 向 下 移动 显示 ; $ 33C 
为 向 上 移动 清 屏 ; $ 362 为 向 下 移动 清 屏 。 在 监控 中 直接 运 
行 或 把 入 口 地 址 换 为 十 进 制 以 CALEL 在 BASIC 状态 下 调 
用 均 可 。 图 形 处 理 限 于 高 分 辩 率 第 一 页 。 

(2) 注 意 事项 : 

造 表 程 序 在 磁盘 中 文件 名 : 
MAKE HIRE' S TABLE 

机 器 语言 子 程序 在 磁盘 中 文件 名 : 
CLEAR HIRE OR TURNL <> R 


素 率 床 

FILE NAME: MAKE HIRE'S TABLE 
10 FORI =0 TO 191 

:A=INT(I/8) 

:B=I 一 8v*vA 
INT (A/B) 
A 一 8r*C 
8192 + 40*C + 128 * D 
二 1024 * B 


| 
人 II 


120 


: POKE 28672 + I, INT(E / 25 


0) 


: POKE 29184 + IE- 一 INT(E/ 


256) * 256 


: NEXT 


FILE NAME: CLEAR HIRE OR TURN L< >R 


0300 一 A0 
0308 一 28 
0310 一 FA 
0318-- 00 
0320 一 FC 
0328 一 00 
0330 一 A0 
0338 一 28 
0340 一 4C 
0348 一 E6 
0350 一 03 
0358 一 C0 
0360 一 85 
0368 一 03 
0370 一 FD 
0378 一 CA 
0380 一 03 
0388 一 0C 
0390 一 03 
0398 一 01 
03A0 一 03 
03A8 一 FA 
03B0 一 03 
03B8 一 CC 


00 
D0 
BD 
72 
60 
70 
00 


C6 
60. 


B1 FB 
F7 60 
00 72 
83 FB 
BD 00 
18 69 
A9 00 
F7 00 
03 A9 
B1 03 
00 85 
FF A9 
A9 01 
00 85 
FE A9 


91 
BD 
85 
BD 
72 
20 
91 
A9 
00 
A9 
FD 
BF 
85 
F7 
上 下 
A9 
F8 
17 
F2 


F9 
00 


C8 


C0 
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47. 高 分 辩 率 图 形 趣味 显示 (二 ) 


这 个 程序 能 以 四 种 方式 把 高 分 辨 率 第 二 页 的 图 形 移 至 第 
二 机 5 
(1) 使 用 方法 : 
键 人 本 程序 后 , 首先 运行 造 表 程序 ( 见 趣味 显示 (一 
) ) 。 本 程序 四 种 显示 方式 人 口 地 址 分 别 为 : $ 6030、$ 
6063、$ 6096 和 $ 60C9, 把 待 显示 图 形 调 到 高 分 辨 率 第 
二 页 , 便 可 在 监控 中 直接 运行 或 把 人 口 地 址 换算 为 十 进 制 用 
CALL 在 BASIC 状态 下 调用 。 
(2) 注 意 事项 : 
本 程序 在 磁盘 中 文件 名 : 
MOVE HIRE TOGETHER 
来 率 素 
FILE NAME: MOVE HIRE TOGETHER 
6000-- A0 00 Bl FB 9%1 F9 C8 cC0 
6008-- 28 DO F7 60 BD 00 70 85 
6010-- FA HD 0 72. 85 F9 6 了 BD 
6018-- 00 72 85$ FB HD 00 70 85 
6020- FC 60 BD 00 72 85$ FB BD 


6028- 00 70 18 6 20 85 FC 
6030- A9 00 85 FD A9 BF 85 FE 
6038- A9 00 85 FF A9 E8 8D FE 
6040- 60 A9 CA 8D 0OE 61 A9 E6 
6048- 8D 23 6l A9 c6 8D 35 6! 
6050- A9 SF 85 F8 A9 Cc0 85 FT 
6058 一 A9 85 F6 A9 SF 85 FS 


6060- 4C 
6068-- 60 
6070- 和 
6078-- BF 
6080-- E& 
6088- 61 
6090- 8D 
6098-- 85 
60A0-- 85 
60A8 一 85 
60B0-- 85 
60B8 一 CA 
60C0-61! 
60C8-- 60 
60D0 一 王 
60D8 一 F8 
60E0-- F6 
60E8-- FE 
60F0- C6 
60F8-- 6!1 
6100- 17 
6108 一 F2 
6110- 17 
6118-- F2 
6120- 20 
6128 一 A6 


6130 一 22 “ 


6138 一 FE 


马 包 名 全 及 总 忆 名 习 忆 世 8 


> 


85 


六 总 人 站 吕 总 日 总 呈 筷 种 吕 
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48. 高 分 辩 率 图 形 趣味 显示 (三 ) 


这 个 程序 可 使 图 形 从 屏幕 顶端 落下 , 就 好 象 倒 水 一 样 , 越 
来 越 高 , 直到 整 幅 图 形 全 显现 出 来 。 

(1) 使 用 方法 : 

健 和 人 本 程序 后 , 先 把 要 显示 的 图 形 调 至 高 分 辨 率 第 二 页 ， 
然后 在 高 分 辩 率 第 一 页 下 以 6070G 或 者 CALL24688 调 
用 本 程序 , 便 能 看 到 以 上 所 述 效果 。 

(2) 注 意 事项 : 

本 程序 在 磁盘 中 中 文件 名 : DISPLAY HIRE SPLASH 

末 率 审 
FEILE NAME: DISPLAY HIRE SPLASH 
6000- A5 10 29 0 OA OA 18 人 
6008-- 20 85 12 AS 10 29 .38 85 


6010-- 11 6A 6A 6A 6A 29 OF 18 
6018-- 65 12 85 12 A5 11 OA 0A 
6020- 0A OA 85 1 A5 10 6A 6A 
6028-- 6A 6A 6A 6A 29 03 AA A9 
6030- 00 18 EO 03 9% 02 6 27 
6038- EO0 02 9 02 人 27 EO 0! 
6040- 9 0 6 27 18 65 11 85 
6048- 11 A9 00 65 12 85 12 0 
6050- A0 27 Bl1 13 9%1 1 88 c0 
6058-- FF D0 II7 60 A0 27 A9 00 
60600- 91 11 88 Ao9 00 9%l 11 88 
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6068-- CD 
6070-- A9 
6078-- 60 
6080- 16 
6088 一 A5 
6090-- 20 
6098 一 D8 
60A0-- 16 
60A8 一 10 
60B0-- 20 
60B8-- D0 
60C0-- A5 
60C8 一 00 
60D0--A9 
60C8-- c6 


品 反 吕 3 


18 


10 
18 


习 人 SS 世 只 玄 芯 


SS 
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49. 高 分 辩 率 图 形 趣味 显示 (四 ) 


使 用 下 面 这 个 程序 , 能 方便 地 达到 一 、 二 页 图 形 相 互 传送 
的 目的 。 显 示 图 形 时 , 它 先 显示 若干 个 小 窗口 , 然后 再 把 整 幅 
图 形 显示 出 来 ， 

(1) 使 用 方法 : 

键 和 人 本 程序 后 , 先 置 人 以 下 参数 , 若 想 把 高 分 辩 率 第 二 页 
图 送 往 第 一 页 , 则 输入 E6 :40 ; 若 想 把 高 分 辨 率 第 一 页 图 送 
往 第 二 页 , 则 输入 E6 :20 ,然后 用 300G 或 CALL768 便 
能 实现 图 形 传送 。 

(2) 注 意 事项 : 

本 程序 在 磁盘 中 文件 名 : DISKLAY HIRE WINDOW 


率 字 率 


FILE NAME: DISPLAY HIRE WINDOW 


0300- A9 01 LDA 并 $01 
0302 一 8D 79 03  STA $0379 
0305 一  A9 00 LDA ##$00 


0307 一 8D 78 03  STA $0378 
030A 一 20 1 F4 JSR $F411 
030D-- AD 78 03  LDA $0378 


0310 一 4A LSR 
0311 一 4A LSR 
0312 一 4A LSR 


0313 一 4A LSR 
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0314- 一 
0315 一 
0317 一 
0318 一 
031B 一 
031D 一 
031F 一 
0322 一 
0324 一 
0327 一 
0328 一 
0329 一 
032B 一 
032C 一 
032D 一 
032F 一 
0330 一 
0332 一 
0334 一 
0337 一 
0339 一 
033C -一 
033D 一 
033E- 一 
0340 一 
0342 一 
0345 一 


A8 
78 


03 


03 


03 


FC 
03 


并 301 


并 9$0376,X 
寺 30A 
($26) ,Y 
$036D 
($26),Y 
$036D 


$031D 


#$0A 


并 $OA 
($26),Y 
$036D 
($26) ,Y 
$036D 


$0332 
共 $10) 
$FCA8 
$0378 
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0348 一 
034B 一 
034D 一 
034F 一 
0351 一 
0353 一 
0356 一 
0357 一 
0359 一 
035C-- 
035D 一 
0360 一 
0363 一 
0364 一 
0367 一 
036A 一 
036C-- 
036D-- 
036E 一 
0370 一 
0372 一 
0374 一 
0375 一 
0376 一 
0377 一 


8 间 S 间 症 贞 SS55SQ 


2 


27 ， 


03 


FEC 


03 


03 
03 


03 
03 


$ 0378 
并 $C0 
$030A 
并 3OA 
并 3$80 
$FCA8 


$0351 
$0376 


$0377 
$0376 


$0377 
$0379 
$0305 


$27 
并 $60 
$27 


50. 高 分 辩 率 图 形 趣味 显示 (五 ) 


这 个 程序 所 能 提供 的 高 分 辩 率 清 屏 方 式 是 把 高 分 辩 率 第 一 
页 的 图 形象 拉 幕布 一 样 分 别 向 左 、 向 右 拉 开 , 直至 整个 屏幕 全 
被 清除 干净 为 止 。 
(1) 使 用 方法 : 
键入 本 程序 后 , 先 运 用 MAKE HIRE'S TABLE 
造 表 程 序 , 然后 向 零 页 单元 $ E6 中 送 入 $ 20, 可 用 600BG 
以 及 6023G 得 到 两 种 清 屏 方式 。 当 然 , 可 把 人 口 地 址 化 为 
十 进 制 ,在 BASIC 状态 下 用 CALL 命令 调用 。 
(2) 注 意 事项 : 
本 程序 在 磁盘 中 文件 名 : CLEAR HIRE MOVE L< >R 
来 率 认 
FILE NAME: CLEAR HIRE MOVE LC >R 
6000- HHD 00 70 LILDA  $7000X 


6003 一 83 FA STA 。” $FA 
6005-- BD 00 72  LDA  $7200X 
6008 一 85 F9 STA 。 $F9 
600A 一 ”60 RTS 

600B8- A9 00 LDA “ #$00 
600D 一 8$ FB STA $FB 
600F 一 A9 27 LDA “ #927 
6011 一 85 FC STA $FC 
6013 一 :A9 C8 LDA  ##$C8 
6015-- 8D 43 600 SSTA  $6043 
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130 


38 


SS 日 日 SR 站 上 吧 3 SS 


8 了 也 


四 
C 〇 


2 8 


2 2 


并 $00 


(SF9),Y 


($F9),Y 


并 $C0 
$6040 


$FC 


SSQ 员 总 昌 虽 送 世 总 六 总 


只 只 日 日 有 8 二 SS 
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51. 高 分 辩 率 图 形 趣味 显示 ( 六) 


这 个 程序 能 为 您 提供 四 种 图 形 显示 方式 : 从 左 至 右 、 从 
右 至 左 ; 把 屏幕 分 为 两 部 分 , 同时 从 左 至 右 , 从 右 至 左 ， 从 而 
使 高 分 辨 图形 的 显示 方式 大 大 扩展 。 

(1) 使 用 方法 : 

键 人 本 程序 后 , 先 运 行 MAKE HIRE'S TABLE 
造 表 程 序 , 然后 把 待 显示 图 形 调 人 高 分 辩 率 第 二 页 , 往 零 页 单 
元 $ E6 内 送 和 人 $ 20, 随 后 用 6012G。602 BG 与 
6044G .605D G 调用 便 可 在 高 分 辩 率 第 一 页 上 得 到 以 上 四 
种 显示 效果 。 当 然 也 能 把 四 个 人 口 地 址 化 为 十 进 制 , 在 
BASIC 状态 下 用 CALL 命令 调用 。 

(2) 注 意 事 项 : 

本 程序 在 磁盘 中 文件 名 : 

DISPLAY HIRE MOVE <MID > 

FILE NAME: DISPLAY HIRE MOVE《〈《MIDy> 
6000-- BD 00 70 85 FA 18 69 20 
6008 一 85 FC BD 00 72 85 F9 85 
6010 一 FB 60 A0 27 84 FE A0 00 
6018 一 84 FEFD A9 13 83$ FF A9 E0 
6020-- 8D 8C 60 A9 Cc6 8D 8E 0 
6028-- 4C 71 60 A0 13 84 FE A0 
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6030- 14 84 
6038 一 C6 


6040 一 60 
6048 一 A9 
6050 一 A9 E6 
6058 一 8E 60 
6060 一 FE A9 
6068 一 FF A9 
6070-- 60 A2 


2 二 区 


FD A9 28 83 FF A9 


8C 
71 


A9 
A9 
A9 


E6 
14 

28 

A9 
A9 


A9 
60 
60 
FE 
DO0 
FD 
DB 


8D 
85 
85 
E06 
27 
13 
8D 
A4 


8E 
FE 
上 下 
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52. 高 分 辩 率 图 形 趣味 显示 (七 ) 


这 个 程序 能 提供 三 种 高 分 辨 率 图 形 显示 方式 : 把 一 个 被 
压 扁 了 的 图 形 慢 慢 地 扩大 , 复原 ; 图 形 自 下 向 上 , 把 图 形 填 到 
屏幕 上 ; 两 张 透明 的 图 形 分 别 从 上 下 重 杰 、 交织 在 一 起 , 直到 
显现 出 要 显示 的 图 形 为 止 。 

(1) 使 用 方法 : 

键 人 本 程序 后 , 把 图 形 调 到 高 分 辩 率 第 二 页 , 然后 在 
BASIC 状态 下 分 别 键入 以 下 三 条 命令 , 便 能 在 高 分 辩 率 第 
一 页 上 得 到 以 上 三 种 显示 方式 : 

@ POKE24$77,2:CALL24576 
@ POKE24$77,1:CALL24576 
@ POKE245$77,0:CALL24576 

(2) 注 意 事项 : 

要 在 高 分 辩 率 第 一 页 下 执行 上 述 命令 , 程序 无 自动 进入 
高 分 屏幕 功能 。 

本 程序 在 磁盘 中 文件 名 : TUMEUP 

冰 素 率 

FILE NAME: TUMEUP 

6000-- A9 00 CcC9 01 DO0 03 
6008-- 60 Cc9 02 DO 03 4C 
4010-- 4C 02 63 A9 00 85 
6018 一 BF 85$ FE A6 FF 20 
0020 一 AS FE 8$ F9 A0 27 
0028 一 60 BL FA 9 FC 88 


8 总 S 习 剖 填 
上 人 已 S 世 5 


FF 
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69 


吧 2BB2BBDZEBDZEEXRRESESDEORARESRESERESES SS 


思 却 昌 症 SEE 


SSzS2zS22280828S5g88888SS&E5 


SSzE22S2ZE2288EES 8 


81 


汪 总 记 交 


SSE222883E58S8 省 SRX 
SBB2ES2ZEEDEESS2XS8E SR 


呈 2BEBEBEBEBEBUSEBSESRQESSERSE 
只 2BEBEBEBEBSUESESEBSAREREBESERDR 


85 


日 2 8 


C5 


EC 


B9 
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6108 一 A8 
0110 一 28 
6118 一 A8 
6120 一 28 
6128 一 A8 
6130 一 28 
6138 一 A8 
6140 一 30 
6148 一 D0 
6150 一 50 
6158 一 D0 
6160 一 50 
6168 一 DO0 
6170 一 30 
6178 一 D0 
6180 一 00 
6188 一 3C 
6190 一 3C 
6198 一 3D 
61A0 一 3D 
61A8 一 3E 
61B0 一 3E 
61B8 一 3F 
61C0 一 3F 
6l1C8 一 3C 
61D0 一 3C 
61D8 一 3D 


久 吕 


只 总 忆 世 民 忆 忆 总 尽 间 名 只 轨 品 呈 台 汪 吕 当 交 吕 区 呈 


4 


只 民 民 如 总 只 外 总 轴 吕 将 吕 呈 交 吕 区 吕 


忆 忆 员 员 对 时 避 呈 电台 吕 只 总 吕 妆 吕 总 允 吕 六 吕 


站 总 


A8 


26 


与 汉 


这 色色 


区 吕 


A8 
28 
A8 


只 六 时 避 半 是 间 日 六 是 吕 站 吕 吕 吕 呈 吕 呈 区 吕 区 吕 


芝 吕 


岂 呈 呈 史 号 


之 凶 邮 册 宙 总 
次 实 产 妾 


(LAD 
一 


A8 


册 次 容 娄 吕 站 总 当 吕 总 吕 区 吕 


(AD 
宗 们 


37 


(AD 
(An 


区 吕 


岂 出 出品 汪 品 汪 吕 汪 吕 号 区 品 区 只 


LDO LU ww ww ww ww ww wm 
忆 ooo 田 男 > 已 


61E0- 3D 
61E8- 3E 
61F0- 3E 
61F8 一 3F 
6200 一 3F 
6208 一 3C 
6210 一 3C 
6218 一 3D 
0220 一 3D 
6228 一 3E 
6230 一 3E 
60238 一 3F 
6240 一 3F 
6248 一 01 
6250 一 01 
6258 一 01 
6260 一 01 
6268 一 01 
6270-- 01 
6278 一 02 
6280 一 02 
6288 一 03 
6290 一 05 
6298 一 09 
62A0-- 30 
62A8 一 11 
62B0-- 2B 


尽 避 名 闻 忆 六 
所 


2 


jw 


名 也 忆 六 


01 01 


吕 品 屋 避 忆 忆 吕 吕 品 癌 呈 旺 
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138 


62B8 一 4C 


62C0 一 74 

62C8 一 A7 
62D0 一 EB 
62D8-- 49 

62E0 一 D2 
62E8 一 B1 

62F0- 55 

02F8 一 99 
6300 一 00 

6308 一 BF 
6310 一 9D 
6318 一 FF 
6320 一 A9 
6328 一 A9 
6330 一 B9 
6338 一 18 

6340 一 CO0 
6348 一 FEFD 
6350 一 10 
6358 一 E6 
6360 一 600 
6368 一 85 
6370 一 FA 
6378 一 FB 
6380 一 B9 
6388 一 FA 
6390 一 C6 
6398 一 “C0 


昌 嗓 23222R2R2 


蔬 
训 


8D 


00 00 


53. 高 分 辩 率 图 形 趣味 显示 ( 八 ) 


您 也 许 玩 过 警察 抓 小 偷 这 个 游戏 , 它 开 始 时 是 一 幅 乱 
七 八 糟 的 画面 , 慢 慢 地 又 变 成 了 一 幅 漂亮 的 图 形 , 而 下 面 的 这 
段 程序 就 能 实现 这 种 图 形 显示 方法 。 

(1) 使 用 方法 : 

键 人 本 程序 后 , 只 要 把 要 显示 的 图 形 调 到 高 分 辩 率 第 二 
页 , 然后 在 高 分 辨 率 第 一 页 下 用 CALL24576 或 6000G 调 
用 本 程序 就 可 以 实现 上 述 显 示 方 法 。 

(2) 注 意 事项 : 

本 程序 在 磁盘 中 文件 名 : RND 


率 宁 认 


FILE NAME: RND 


6000- A0 00 LDY ”并 $00 
6002 一 A9 DO0 LDA ”并 $D0 
6004 一 85 F9 STA 。 $F9 
6006-- A9 00 LDA ”并 $00 
6008 一 85 FA STA SFA 
600A 一 85 FFC STA $FC 
600C- A9 20 LDA、  ##$20 
600E 一 85$ FEFB STA $FB 
6010-- AS F9 LDA 。 $F9 
6012 一 85 FEFB STA $FD 
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140 


了 中 2BQ 吕 了 日 半 避 旧 加 腾 四 天 玉 旺 加 加 四 本 总 昌 


$FC 


E6 


E06 


员 二 日 日 避 飞 @ 妈 六 辐 昌 证 中 总 
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54. 高 分 辩 率 图 形 趣味 显示 ( 九 ) 


运行 本 程序 能 看 见 屏幕 上 闪 过 一 些 晃 动 的 光 条 , 它 越 来 
越 密 、 越 来 越 清晰 , 直到 显 ”出 一 幅 完整 的 图 形 。 
1) 使 用 方法 : 
键 人 本 程序 后 , 把 待 显 示 的 图 形 调 到 高 分 辩 率 第 二 页 , 然 
后 在 高 分 辩 率 第 一 页 下 用 CALL24576 或 6000G 调用 本 
程序 就 可 以 实现 上 述 显示 方法 。 
(2) 注 意 事项 : 
本 程序 在 磁盘 中 文件 名 : WAVE 
六 素 闲 
FILE NAME: WAVE 
6000-- A9 SF 853 FF A9 00 85 FE 
6008 一 A5 FF 8$ F9 A6 FE BD 49 
6010-- 60 853 FA 85$ FC BD OA 61 
6018-- 85 FD 18 69 20 85 FB A6 
6020-- F9 A0 27 Bl FA 91 FC 88 
0028 一 10 F9 E6 FE A4 FE B9 49 
6030-- 60 85 FC B9 OA 61 85 FD 


6038-- CO0 BF F0 06 CA D0 E2 4C 
6040- 0C 60 c6 FF A5 FF DO BC 
6048 一 60 00 00 00 00 00 00 00 
6050- 00 80 80 80 80 80 80 80 
6058 一 80 00 00 00 00 00 00 00 
6000-- 00 80 80 80 80 80 80 80 
6008 一 80 00 0 00 00 00 00 00 
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6070-- 00 
6078 一 80 
6080 一 00 
6088-- 80 
6090 一 28 
6098 一 A8 
60A0 一 28 
60A8 一 A8 
60B0 一 28 
60B8 一 A8 
60C0 一 28 
60C8 一 A8 
60D0 一 50 
60D8--D0 
60E0-- S0 
60E8-- DO0 
60F0-- S0 
60F8-- DO0 
6100- 50 
6108 一 D0 
6110 一 38 
6118 一 38 
6120-- 39 
6128 一 39 
6130 一 3A 
6138 一 3A 
6140-- 3B 


站 站 由 台 吕 区 总 将 吕 区 总 允 呈 六 吕 


CD 
已 


3E 


LDLD 
可 癌 


必 姑 关 总 中间 四 昌 站 吕 中 区 品 区 吕 


ktD kb iD D 
SA 


吕 吕 汪 品 号 吕 总 品 号 六 呈 六 呈 


日 间 号 总 总 允 吕 号 吕 四 只 四 六 吕 芒 吕 
总 总 央 央 当 内 品 站 总 关 吕 台 中 区 只 坊 吕 


人 2 
Oo 


A8 


MD MD MD 
了 中 品 


33 
33 
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144 


6148 一 3B 
6150 一 38 
6158 一 38 
0160 一 39 
6168 一 39 
6170 一 3A 
6178 一 3A 
6180-- 3B 
6188 一 3B 
6190 一 38 
06198 一 38 
61A0 一 39 
01A8 一 39 
61B0 一 3A 
61B8 一 3A 
61C0 一 3B 
61C8 一 3B 


世 刘 > 刘 二 > 通 S 玫 全 二 生 = 这 = 昌 > 刘 > 者 > 二 > 才 = 本 要 = 这 = 


负电 交 羡 吕 台 员 呈 电 吕 用 呈 包 台 吕 只 


总 忆 吕 总 旺 


昌 六 六 号 号 总 吕 意 间 总 六 


害 池 池 


31 
32 
32 
33 


之 当 雏 册 


31 
32 
32 
33 
33 


55. 趣味 换 页 


本 程序 可 将 一 幅 调 人 内 存 的 图 形象 翻 书 一 样 斜 卷 而 上 ， 
从 而 使 图 形 显露 出 来 。 
(1) 使 用 方法 : 
键 和 人 本 程序 后 , 把 待 显 示 图 形 调 人 高 分 辩 率 第 二 页 , 然后 
用 CALL768($ 300) 调 用 本 程序 , 便 会 看 到 有 趣 的 画面 。 
(2) 注 意 事项 : 
本 程序 在 磁盘 中 文件 名 : TURN A PAGE 
素 审 宁 
FILE NAME: TURN A PAGE 
0300- 4C 29 03 AS 1 OA OA 29 


0308 一 1lC 85 15 11 6A 6A 6A 
0310 一 6A :29 03 153 09 20 85 
0318 一 15 A5 411 290 E0 85 14 
0320-- 6A 6A 29 05 14 85 14 
0328-- 60 A0 00 02 A4 02 A2 


0330 一 BF 86 11 


民 上 中 冯 232 六 立 
& 
名 
& 
& 


0338-- A53 14 85 A53 153 69 20 
0340 一 A5 01 Bl 91 14 E8 C6 
0348-- 11 05 E8 88 A2 00 
0350-- C0 FF 90 E6 02 A4 02 
0358 一 A9 FF C5 D0 D1 A2 BF 
0360-- 86 11 86 A2 03 A5 02 


0368 一 38 E9 03 18 8 03 65 03 
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0370-- 83 02 A0 27 20 03 03 A5 


0378-- 14 85 00 AS 13 69 20 85 
0380 一 0 Bl 0 9l1 14 E8 C6 11 
0388 一 EO0 05 90 E8 88 AS 11 C9 
0390 一 FF A2 00 9%0 DF A6 02 86 
0398 一 11 A2 00 


AS 02 C9 下 DO0 
03A0--C5S 60 1 A2 00 DO c0 60 


50. 高 分 辩 率 岁 形 显示 技 马 一 例 


本 程序 具有 将 高 分 辩 率 图 形 在 屏幕 上 面 呈 “+ “字形 慢 
慢 显 示 开 来 , 直到 满 屏幕 为 止 的 功能 ， 从 而 增加 了 软件 的 趣 
味 性 和 艺术 性 。 

(II) 使 用 方法 : 

把 要 显示 的 图 形 调和 人 高 分 辩 率 第 一 页 , 再 运行 本 程序 , 便 
可 得 到 以 上 效果 (在 第 二 页 显示 ) 。 

在 监控 中 用 9000G 运行 ,在 BASIC 中 用 命令 
CALL36864 即 可 。 

(2) 注 意 事项 : 

本 程序 在 磁盘 中 文件 名 : PRESS--CROSS 


来 北 来 


FILE NAME: PRESS 一 CROSS 

9000-- 20 D8 EF3 A2 20 86 E6 A0 
9008-- SF 84 0 A2 13 86 01 A2 
9010 一 00 86 02 86 03 86 04 A4 


9018-- 02 
9020-- A2 
9028-- 86 
9030- 80 
9038-- 86 
9040- 01 
9048-- 26 
9050- 27 
9058 一 98 
9060-- 20 
9068-- E6 
9070- E4 
9078-- 04 
9080- A4 
0988-- 04 
9090-- 08 
9098 一 A5 
”90A0-- 85 
90A8 一 03 
90B0-- 04 
90B8-- 00 
90C0-- 1B 
90C8 一 A8 
90D0--F0 
90D8-01 
90E0-- 85 
90E8 一 8A 
90F0-- OA 
90F8- 29 
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5/. 图 形 合并 


假如 有 两 幅 图 形 , 一 幅 是 背景 , 一 幅 是 人 物 ， 要 想 把 它们 
合 二 为 一 , 组 成 一 幅 完美 的 画面 .下 面 的 两 个 程序 , 分 别 为 主 
程序 与 机 器 语言 子 程序 , 可 完成 此 项 工作 。 

(1) 使 用 方法 : 

键 人 完 两 个 程序 后 , 便 可 运行 BASIC 程序 进行 合并 工 
作 。 此 时 屏幕 会 出 现 各 项 提示 。 按 照 提示 分 别 输入 第 一 页 图 
形 的 文件 名 ,、 第 二 页 图 形 的 文件 名 ,、 合并 结果 所 放 页 数 , 其 它 
工作 便 可 由 计算 机 自动 完成 。 

(2) 注 意 事项 : 

机 器 语言 子 程序 在 磁盘 中 文件 名 : FAST JOIN 

主 程序 在 磁盘 中 文件 名 : FAST JOIN SYS 


冰 率 素 
FILE NAME: FAST JOIN. SYS 
1 TEXT 
: HOME 
: VTAB 5 
2 INPUT “HGR1 FILE NAME=“; Fl 
$ 
3 INPUT “HGR2 FILE NAME=“; F2 
$ 
5 VTAB 1!10 
: INPUT "RESULT STORE IN PA 
GE( 1OR2):?“; P 
6 IFP《(1ORP>2THEN 5$ 
148 
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VTAB 12 


: IJNVERSE 
:PRINT“LOADING PICTURE ，W 


AITING 
DS$ = CHRS$(4) + “BLOADY' 
POKE 34,， 14 


: POKE 35，16 


VTAB 15 


: PRINT ”LOADING FAS TJOIN 


PRINT D $ ”FAST JOIN 
HOME 
VTAB 15 


: PRINT “LOADING“; Fl $ 


PRINTDS$; FS$"， AS$ 2000 
HOME 
VTAB 15 


: PRINT "LOADING“; F2 $ 


PRINTDS$;F2$"，AS$ 4000” 
POKE 34,0 


: POKE 353,39 
POKE 24609, SGN (P 1) * 2 
十 6 
: POKE 24629, SGN (P -1) +8 
4 
VTAB 15 


: PRINT "SUPEROSING。。 “ 
: NORMAL 
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530 ”CALL 24576 


FILE NAME: FAST JOIN 


60 END 
6000 一 。 A9 
6002 一 ”85 
6004 一 85 
6006 一 。 A9 
6008 一 ”85 
600A 一 A9 
600C 一 85 
600E 一 “E6 
6010 一 D0 
6012 一 。E6 
6014-- E6 
6016-- D0 
6018 一 。E6 
601A 一 A2 
601C 一 Al 
601E 一 01 
6020 一 81 
6022 一 A9 
6024-- ”C5 
6026 一 D0 
6028 一 A9 
602A 一 “”C5 
602C 一 D0 
602E 一 8D 
6031 一 ”8D 
6034- 8D 
6037 一 8D 
603A 一 600 
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FF 
06 
08 
1F 
07 
3F 
09 
06 
02 
07 
08 
02 
09 
00 
08 
08 
3F 
07 
E6 
上 F 
06 
E0 
30 
2 
55 


57 


C0 
C0 
C0 
C0 


58. 高 分 辨 率 图 形 左 右 易 位 


如 果 某 一 幅 图 形 您 看 大 了 , 不 妨 使 它 左 右 易 位 , 就 象 是 在 
镜子 中 见 到 的 一 样 。 下 面 的 这 段 程序 就 能 帮 您 完成 这 项 工 
作 。 

(1) 使 用 方法 : 
键 和 人 本 程序 后 , 假如 要 处 理 的 图 形 在 高 分 辩 率 第 一 页 , 则 
键 人 E6:20; 若 在 第 二 页 , 则 键 人 AE6:40。 然 后 用 300G 或 


CALL768 调用 本 程序 就 行 了 。 
(2) 注 意 事项 : 
本 程序 在 磁盘 中 文件 名 : TURN 工 一 R 
来 宁 素 


FILE NAME: TURN 工 -R 

0300--  A9 00 LDA ”并 $00 
0302 一  A2 00 LDX ”并 $00 
0304--  A0 00 LDY 并 0 
0306-- 85 EC STA 。”$EC 
0308-- 20 1 F4 JSR  $F411 
030B 一 A0 00 LDY  #$00 
030D-- Bl1 26 LDA  ($26) ,Y 
030F 一 20 3E 03 JSR  $033E 
0312 一 AS EE LDA “”$EE 
0314 一 8$ EF STA ”$EF 
0316 一 98 TYA 

0317 一 。 AA TAX 
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0318-- 
031B 一 
031D -- 
031E 一 
0320 一 
0321 一 
0323 一 
0326 一 
0328 一 
032A 一 
032B 一 
032C 一 
032E 一 
0330 一 
0331 一 
0333 一 
0335 一 
0337 一 
0339 一 
033B 一 
033D 一 
033E 一 
0340 一 
0341 一 
0343 一 
0344 一 
0346 一 


]F 03 


EE 


07 


03 


并 物 7 


0347 一 26  EE ROL $EE 


0349 一 CA DEX 
034A 一 E0 00 CPX 并 $00 
034C- F0 03 BEQ 8$0351 
034E 一 4C 46 03 JMP 30346 
035$1--  A6 ED LDX $ED 
0353 一 ”60 RTS 


59. 图 形 上 下 颠倒 


下 面 一 段 程序 能 够 使 高 分 辩 率 图 形 上 下 苏 倒 , 从 而 得 到 
一 幅 更 为 有 趣 的 画面 。 

(1) 使 用 方法 : 

键 人 本 程序 后 , 把 所 需 颠 倒 的 图 形 调 人 高 分 辩 率 第 一 页 ， 
键 人 300G( 或 CALL768) 命 令 便 可 进行 颠倒 。 


(2) 注 意 事项 : 
本 程序 在 磁盘 中 文件 名 :TURN “OVER 
素 本 素 
FILE NAME: TURN OVER 


0300- 8D 5$0 C0 8D S$2 C0 8D 434 
0308-- C0 8D 57 C0 A2 00 BD 58 
0310-- 03 853 05 E8 BD S$8 03 85 
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0318 一 04 
0320-- 85 
0328 一 A9 
0330 一 48 
0338 一 C8 
0340 一 69 
0348 一 04 
0350 一 E0 
0358 一 20 
0360 一 21 
0368 一 22 
0370 一 23 
0378 一 20 
0380 一 21 


E8 


只 史 BBBSBSURRSR 


已 久 总 六 总 


BD 
E8 


这 只 SS 各 品系 区 


58 03 18 


BD 
08 
91 
D0 
05 
C6 
BA 


38 
A0 


六 名 忆 六 从 忆 BR 区 蕊 科 


03 
00 
68 


69 
85 
Bl 
91 
05 
38 


SSSSDSSs 


只 只 3332REBXRRRRTE 


60. 高 分 辩 率 图 形 横向 绕 着 


这 个 程序 能 够 使 图 形 左 移 并 绕 卷 ,用 于 图 形 处理 上 很 有 
用 处 。 
(1) 使 用 方法 : 
键 人 本 程序 后 再 输入 以 下 参数 , 即 在 $ EB 中 放 人 移动 
页 数 (一 页 或 两 页 或 三 页 ); 在 $ 01 与 $ 02 中 输入 移动 图 
象 起 始 行 与 中 止 行 。 然 后 把 图 象 调 至 各 自 页 区 ，$ 
2000- $ 3FFEF 为 第 一 页 , $ 4000- $ 5FFE 为 第 
二 页 , $ 6000- $ 7FFEF 为 第 三 页 。 随 后 用 CALL768 
($ 300) 调 用 子 程序 可 使 指定 范围 内 图 象 不 断 向 左 移 , 并 且 
从 右边 绕 卷 回来 。 
(2) 注 意 事 项 : 
本 程序 在 磁盘 中 文件 名 : ROLL HIRE IXR 
率 床 率 
FILE NAME: ROLL HIRE IR 
0300-- A9 00 LDA ”并 $00 
0302-- 8D 5$0 c0 STA ”$c050 
0305-- 8D 5$2 c0 STA ”$c052 
0308- 8D 5$7 Cc0 STA 。”$c057 
030B 一 AS 0l LDA  $01 
030D 一 48 PHA 
030E- A9 20 LDA ”并 $20 
0310-- 85  E6 STA 。” $E6 
0312--  A9 00 LDA “”#$00 
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0314 一 
0316 一 
0317 一 
0318 一 
031B 一 
031D 一 
031F 一 
0321 一 
0324 一 
0326 一 
0328 一 
032A 一 
032C 一 
032E 一 
0330 一 
0332 一 
0334 一 
0336 一 
0337 一 
0339 一 
033B 一 
033C 一 
033D 一 
0340 一 
0342 一 
0344 一 
0346 一 


85 07 STA 


68 PLA 
48 PHA 
20 11 F4 JSR 
A0 00 LDY 
Bl 20 LDA 
85 06 STA 
20 69 03 JSR 
E6 07 INC 
A5 .07 LDA 
C5 EB CMP 
F0 23 BEQ 
A5 20 LDA 
85 538 STA 
AS 27 LDA 
85 539 STA 
AS E6 LDA 
18 CLC 
69 加 ADC 
85$ E6 STA 
68 PLA 
48 PHA 
20 11 F4 JSR 
A0 00 LDY 
B1 26 LDA 
AO0 27 LDY 
91 38 STA 


$07 


$F411 
并 $00 
($26) ,Y 
$06 
$0369 
$07 
$07 
$EB 
$034F 
$26 
$58 
$27 
$59 
$E6 


井 $20 
$E6 


$F411 
并 $00 
($26),Y 
并 $27 
($$8) , Y 


20 


SS 3 


D5 
27 


只 忌 


01 


全 放 = 是 = 前: 


12 


总 


忆 


只 只 有 只 


03 


CO0 


CPY 
BEQ 


工 DA 


DEY 
STA 
INY 
BNE 
RTS 
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01. 高 分 辩 率 图 形 纵 癌 绕 卷 


这 个 程序 能 够 使 高 分 辩 率 图 形 上 移 并 且 绕 卷 ,用 于 图 形 
处 理 上 很 有 用 处 。 

(1) 使 用 方法 : 

键 人 本 程序 后 , 再 输入 以 下 参数 , 即 在 $ EB 放 入 !1 与 图 
象 页 数 的 和 (一 页 放 2、 二 页 放 3、 三 页 放 4); 在 $ 01 与 $ 
02 中 输入 移动 的 图 象 的 起 始 行 与 中 止 行 。 然 后 把 图 象 调 至 
各 自 页 区 , $ 2000- 多 3FFEF 为 第 一 页 , $ 4000- $ 
SFFEF 为 第 二 页 , $ 6000- $ 7FFEF 为 第 三 页 。 随 后 用 
CALL768( $ 300) 调 子 程序 可 使 指定 范围 内 图 象 上 移 , 并 
且 从 下 面 绕 卷 回来 。 


(2) 注 意 事项 : 
本 程序 在 磁盘 中 文件 名 : ROLL HIRE U<D 
宁 率 率 
FILE NAME: ROLL HIRE UCD 
0300-- A9 00 LDA ”并 $00 


0302 一 8D 50 C0 SEA $C050 
0305 一 8D 52 C0  STA $C052 
0308 一 8D 57 C0  STA $C057 


030B 一 85 06 STA $06 
030D 一 A9 20 LDA ”#$20 
030F 一 85 E6 STA $E6 
0311 一 AS5 01 LDA 01 


0313 一 20 1 F4 JSR $F411 
0316 一 A0 27 LDY 提 $27 
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B1 
48 
88 
10 
E6 
AS 


8 二 尽 汪 总 区 六 8828 


只 名 电 心包 全 名 名 名 世 避 吗 


03 
03 


LDA 


DEY 
BPL 


LDA 
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160 


C0 


03 


62. 高 分 辩 率 图 形 的 放大 与 缩小 


在 高 分 辩 率 图 形 的 变换 过 程 中 , 放大 与 缩小 这 两 种 效果 
时 常 被 用 到 , 下 面 这 几 个 程序 便 可 以 在 这 方面 给 与 岂 发 与 帮 
助 。 
(1) 使 用 方法 : 

首先 键入 三 段子 程序 (从 $ 300、$ 6000、$ 6100 开 
始 分 别 为 调用 子 程序 . 放大 子 程序 . 缩小 子 程序 ), 再 在 监控 下 
键 人 : 

3F6:00 03 

便 可 调用 子 程序 了 。 如 果 要 将 高 分 辨 率 第 二 页 图 形 放大 到 高 
分 辩 率 第 一 页 上 去 , 只 要 键 和 人 &FX,Y。 其 中 X 为 要 放大 的 
这 块 图 形 的 左上 角 横 座 标 (0 < X < 20); Y 为 其 纵 座 标 (0 
< 立 < 96)。 然 后 就 会 发 现 屏幕 上 有 二 块 放 太 的 图 形 。 如 
果 要 将 高 分 辩 率 第 二 页 图 形 缩小 到 第 一 页 的 某 一 块 140 
x 96 点 阵 的 图 形 上 去 , 就 只 需 键 人 &SX,Y 就 行 了 . X、 芯 
为 这 块 图 形 的 左上 角 的 横 纵 座 标 , 回 车 后 计算 机 便 在 高 分 状 
第 一 页 上 显示 缩小 后 的 图 形 。 假 如 所 给 的 参数 太 大 , 计算 机 
还 会 自动 显示 出 错 信 息 。 

(2) 注 意 事 项 : 

三 个 子 程序 在 磁盘 中 文件 名 : 

LET HIRE*4 

LET HIRE/4 

LDT HIRE*。/ 。，&CALL 


宁 


FILE NAME: LET HIRE* '/.&CALL 
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0300 一 
0302 一 
0304 一 
0305 一 
0306 一 
0309 一 
030A 一 
030C 一 
030E 一 
0311 一 
0314 一 
0316 一 
0318 一 
031B 一 
031E -一 
0321 一 
0324- 一 
0327 一 
032A 一 
032D 一 
0330 一 
0332 一 
0334 一 
0336 一 
0338 一 
033A 一 
033C-- 


B1 B8 


20 98 
68 


D9 


LDY 
LDA 
PHA 
INY 
JSR 
PLA 
CMP 
BNE 
JSR 
JMP 
CMP 
BNE 
JSR 
BIT 
BIT 
BIT 
BIT 
BIT 
JMP 
JSR 
STX 
LDA 
STA 
CMP 
BCS 
LDA 
CMP 


间 $00 
($B8),Y 


$D998 


#$46 
$0314 
4$032D 
$6000 
##$53 
$0341 
$032D 
$C050 
$C055 
$c057 
$C054 
$C052 
$6100 
$E746 
$01 
$50 
$00 
#$15 
$0341 
$01 
#$60 


033E 一 ”了 B0 
0340 一 60 
0341 一 


01 


BCS 
RTS 


4C C9 DE JMP 


FILE NAME: LET HIRE*4 


6000-- 。 A9 00 
6002-- 85 05 
6004- ”20 E2 
6007- 2C 52 
600A-- A9 00 
600C- 85 08 
600E 一 85 09 
6010- A9 20 
6012-- 85 E6 
6014-- A5 05 
6016- 20 1 
6019-- AS5 26 
601B 一 85 06 
60ID-  A5 27 
GOIF-- 85 07 
6021-- 。E6 05 
6023 一 AS5 05 
6025- 20 11 
6028-- A5 26 
602A 一 85 0A 
602C-  A5 27 
602E 一 85 0B 


F3 
C0 


F4 


F4 


103 


164 


F4 


#$40 
$E6 
$01 
$F411 


$26 

$00 

$26 

$09 
($26),Y 
$04 
夫 $00 

并 $04 
$04 


$02X 
$04 


$02X 
$604A 


并 $02 
$6048 
$02 
$03 
$02 
$08 


0003 一。 AS 
6065 一 91 
6067 一 91 
6069 一 C8 
606A 一 A5 
606C 一 91 
606E 一 91 
6070 一 E6 
6072 一 E6 
6074 一 E6 
6076-- A5 
6078 一 “C9 
607A 了 D0 
607C 一 E6 
607E 一 E6 
6080-- AS 
6082 一 C9 
6084~- DO0 
6086-- ”60 
6087-- F0 
FILE NAME : 
6100--  A9 
6102 一 85$ 
6104 一 。 A9 
6106 一 85 
6108 一 A9 


$02 
($06),Y 
s(S$OA),Y 


$03 
($06 ),Y 
($OA),Y 
$09 
$08 
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0610A 一 
0610C 一 
610E 一 
6111 一 
6113 一 
0115 一 
6117 一 
6119 一 
611B 一 
611D 一 
6120 一 
6122 一 
6124 一 
6126 一 
6128 一 
612A 一 
6l2C 一 
612E 一 
0131 一 
6133 一 
6135 一 
6137 一 
60139 一 
613B 一 
613D 一 
613E 一 
6140 一 


& 


20 


F4 


F4 


F4 


STA 
LDA 
JSR 
LDA 
STA 
LDA 
STA 
INC 
LDA 
JSR 
LDA 
STA 


LDA_ 


STA 
LDA 
STA 
LDA 
JSR 
LDA 
STA 
LDY 
LDA 
ORA 
STA 
IJNY 


LDA- 


ORA 


$E6 
$08 
$F411 
$26 
$06 
$27 
$07 
$08 
$08 
$F411 
$26 
$O0A 
$27 
$0B 
并 $20 
$E6 
$01 
$F411 
$00 
$0D 
$0C 
($06) ,Y 
(30A)Y 
$02 


($00) 
(3$OA) 


6142 一 
6144 一 
6146 一 
6148 一 
614A 一 
614C 一 
614E 一 
6130 一 
61S2 一 
6153 一 
6155 一 
6157 一 
6139 一 
615B-- 
615D 一 
61SF 一 
6101 一 
6163 一 
6165 一 
6167 一 
6168 一 
616A 一 
616C 一 
6106E -- 
616F 一 
6170 一 
6172 一 


$03 
$0C 
$0C 
间 $03 
302 
$04 
$02 
$05 


$614A 
$02 
$04 
$03 
$05 
并 3$03 
3$03 
$04 
$03 
$05 


$615F 
$04 
$05 


$0D 
($26),Y 
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6174-- “E6 0D INC “”$0D 


6176-  A4 0C LDY ”4$ocC 
6178 一 C0 28 CPY ”并 $28 
617A 一 DO BB BNE $6137 
617C 一 E6 08 INC $08 
617E--  E6 01 INC $01 
6180 一 AS 08 LDA  $08 
6182 一  C9 C0 CMP “并 $C0 
6184 一 。 F0 03 BEQ 。$6189 
6186 一 4C04 61 JMP ” $6104 
6189 一 60 RTS 


63. 低 分 辩 率 图 形 COP 


在 低 分 辩 率 下 作 图 十 分 方便 , 但 线条 太 粗 不 及 高 分 辩 图 

形 细腻 。 如 果 有 一 幅 低 分 辩 率 图 形 , 想 在 高 分 辨 率 进行 修改 ， 

却 又 不 知 如 何 下 手 , 那么 下 面 的 程序 将 会 把 低 分 辩 率 图 形 移 
到 高 分 辩 率 上 去 。 
(1) 使 用 方法 : 

键 人 程序 后 ,用 6000G( 或 CALL24576) 调 用 , 再 按 提 

示 输 入 您 想 将 图 形 所 移 至 高 分 辩 率 的 页 数 , 便 能 得 到 满意 结 

果 ， 
(2) 注 意 事 项 : 

文本 的 最 后 四 行 不 能 有 字符 , 否则 会 使 高 分 辨 率 所 显示 
图 形 底部 有 欠缺 。 
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本 程序 在 磁盘 中 文件 名 : GR COPY 


宁 素 率 


FILE NAME: GR COPY 

6000 一 20 D8 F3 20 E2 F3 A9 17 
6008-- 85 23 20 24 FC A9 00 85 
6010- 24 AA BD DF 60 20 F0O FD 
6018 一 E8 E0 19 DOF5 20 DD FB 
6020- A9 04 85 0 A9 00 85 06 
6028 一 20 l1B FD 85 1A 8D 5 C0 
6030-- 8D 53 C0 8D 57 C0 A5 1A 
6038-- C9 B1 FEF0O 10 8D 5 C0 20 
6040 一 DD FB 20 DDFB A9 3C 85 
6048 一 0 4C 56 60 8D 9 C0 20 
6030-- DD FB A9 lc 85 00 A0 00 
6058 一 A5 06 853 08 A9 00 85 18 
6000-- A5 00 18 65 0 853 09 A9 
6068-- 03 23 08 85 18 Bl 06 85 
6070 一 IlIA 290 OF 20 FA 600 A9% F0 
6078 一 253 1A 18 6A 6A 6A 6A 20 
6080 一 FA 60 E6 06 D0 D2 E6 07 
6088 一 A5 0 C9 08 DO CA 20 1B 
6090-- FD C9 D4 F0 03 4C DD FB 
6098 一 20 99 F3 4C DD FB 00 00 
60A0-00 00 44 08 11 22 91 A2 
60A8--C4 88 53 2A 5 2A08 1 
60B0 一 22 44 33 66 4C 19 D5 AA 
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60B8-- D5 AA 
60C0--A2 C4 
60C8--19 33 
60D0-2A 55 
60D8 一 6E 5D 
60E0-- C8 Cc9 
60E8-- C5 A0 
60F0-- CF D2 
60F8-- 00 00 
6100-- BD 9E 
6108-- 02 B0 
6110 一 CA BD 


-6118 一 AS CE 


6120 一 09 85 
6128 一 04 18 
6130 一 02 90 


DD BB F7 
AA D3 AA 
77 6E 35D 
EE DD BB 
FF FF FF 
C3 C8 A0 
BF A0 A0 
A0 32 A9 
OA OA 18 
60 85 CE 
04  E8 E8 
9E 60 85 
91 08 A9 
09 AS CF 
63 09 85 
ES 的 


EE 88 
D5 60 
3B 2A 
F7 3B 
FF 00 
D0 C1 
A8 31 
A0 BD 
6 18 
AS 18 
DO0 02 
CF A2 
04 18 
91 08 
09 E8 


64. 格式 化 列表 


当 在 打印 机 上 开 列 BASIC 程序 清单 时 , 一 般 来 说 程序 
显得 很 乱 , 尤其 是 当 一 个 程序 行 中 含有 多 个 语句 时 , 命令 对 不 
齐 , 读 起 来 很 不 方便 。 下 面 这 个 程序 能 在 列 清单 时 使 行 号 对 
齐 。 若 一 个 程序 行 含有 多 个 语句 , 则 它们 之 间 的 “: ”对 齐 , 语 
句 对 齐 , 使 整个 程序 清晰 、 工整 。 

(1) 使 用 方法 : 

键 人 本 程序 后 , 把 BASIC 程序 调 人 内 存 , 然后 输入 (在 
BASIC 状态 下 ) 
PR#71:POKE1657,80:CALL768:LIST 
便 会 列 出 程序 清单 。 当 然 , 先 要 打开 打印 机 再 键 人 以 上 命 
令 。 若 打印 机 不 插 在 一 号 槽 口 , 则 要 键 人 : 
POKE802，192+ nm PR 并 hn: POKE1656+ n，80: 
CALL768: LIST 


n 代表 槽 口号 。 
(2) 注 意 事项 : 
本 程序 在 磁盘 中 文件 名 : REGULAR LIST 
宗 家 宋 

FILE NAME : REGULAR LIST 
*300LLLL 
0300 一 A9 16 LDA 失 $16 
0302 一 8$ 36 STA ”$36 
0304-- A9 03 LDA 并 $03 
0306-- 85 37 STA  $37 


0308 一 _ A9 06 LDA 闪 $06 
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030A-- 
030C 一 
03GF 一 
0311 一 
0313 一 
0316 一 
0318 一 
031A 一 


031C 一 : 


031E 一 
0320 一 
0323 一 


0325 一 


0327 一 
0329 一 
032B 一 
032E 一 
0331 一 
0332 一 
0335 一 
0336 一 
0337 一 
0339 一 
033B 一 
033D 一 
033F 一 
0340 一 


AD EA 03 


4C EA 03 


4C 02 C1 


03 
03 


03 


$E9 
$03EA 
并 $4C 
$034E 
$03EA 
并 $B0 
$0327 
#$BA 
$0327 
$E9 
$C102 
并 $A0 
$0320 
闪 $8D 
$0331 
$0320 
$0300 


$0390 
#$A0 
$034E 
$E9 

$0347 


$0323 


0343 一 68 PLA 

0344-- 4C 3B 03 JMP “ $033B 
0347- 20 20 03 JSR ”$0320 
034A-- A9 4F LDA 井 $4F 
034C 一 85$ 36 STA ”$36 

034E-- 60 RTS 

034F 一 C9 A2 CMP  ##S$A2 
0351-- DO 17 BNE ” $036A 
0353 一 A9 SC LDA ”并 $SC 
0355 一 85$ 36 STA ”$36 

0337-- A9 A2 LDA ”并 $A2 
03S9 一 4C 20 03 JMP “”$0320 
03SC-- C9 A2 CMP， 井 $A2 
035E-- F0 03 BEQ ”$0363 
0360- 4C 20 03 JMP “”$0320 
0363 一 A9 4F LDA 并 备 F 
0365 一 8$ 36 STA “”$36 

0367-- 4C 5$7 03 JMP ”$0357 
036A 一 C9 8D CMP “” 井 $8D 
036C-- F0 BD BEQ ”$032B 
036E 一 C9 BA CMP ”并 $BA 
0370-- D0 EE BNE “”$0360 
0372-- A9 8D LDA 并 和 D 
0374- 20 00 03 JSR ”$360 
0377-- A9 04 LDA 并 04 
0379-- 85 FE8 STA ” $E8 

037B 一 20 23 03 JSR ”$0323 
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037E 一 
0380 一 
0382 一 
0384 一 
0387 一 
0389 一 
038B 一 
038D 一 
038F 一 
0390 一 
0392 一 
0394 一 
0395 一 
0397 一 
0399 一 
039B 一 
039D -- 
03A0 一 
03A2- 
03A4 一 
03AS 一 


60 03 


3B 03 


47 03 


$E8 
$037B 
并 $BA 
$0360 
并 $01 
$E9 
并 $27 
$36 


并 $27 
$36 


并 $C1 
$03A0 
闪 $DA 
$03A0 
$033B 
并 $A0 
$03A5 


$0347 


05. 一 行 打印 十 六 个 字 节 


对 于 一 般 打 印 机 来 说 , 若 在 监控 中 打印 机 器 码 , 一 行 只 失 
印 八 个 字 节 , 所 占 地 方 连 纸张 的 一 半 都 不 到 , 这 就 太 浪费 纸张 
了 。 而 下 面 的 程序 能 使 一 行列 出 十 六 个 字 节 。 可 省 纸 一 倍 。 

(1) 使 用 方法 : 

键 人 本 程序 后 ,在 $ 6、$ 7 单元 存放 要 打印 部 分 的 开 
始 地 址 ( $ 6 存 地 址 低位 、$ 7 存 地 址 的 高 位 ) ,在 $ 8、$ 9 
单元 存放 要 打印 部 分 的 结束 地 址 。 然 后 , 接 通 打印 机 , 在 监控 
中 用 300G 或 在 BASIC 状态 下 用 CALL768 调用 本 程 
序 即 可 。 

(2) 注 意 囊 项 : 

本 程序 在 磁盘 中 文件 名 : PRINT 16/LINE 


率 字 素 


FLE NAME: PRINT 16/LINE 


0300 一 A9 4C LDA ”并 $4C 
0302-- 8D 79 04 STA  $0479 
0305$ 一  A9 $0 LDA ”并 $30 
0307- 8D 79 .06 STA $0679 
030A 一 A6 06 LDX 。$06 

030C 一 A4 07 LDY  $07 

030E 一 20 40 FF9 JSR $F940 
0311 一 ，A9 AE LDA ”并 $AE 
0313-- 20 ED FD JSR $FDED 
0316--  A6 08 LDX  $08 


0318 一 A4 09 LDY 。 $09 
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031A 一 
031D-- 
031F 一 
0321 一 
0324 一 
0326-- 
0329 一 
032B -- 
032E 一 
0330 一 
0332 一 
0334 一 
0336 一 
0338 一 
033A 一 
033C-- 
033E 一 
0340 一 
0342 - 
0344 一 
0346 一 
0348 一 
034B 一 
034E 一 
0350 一 
0353 一 
0355 一 
0358 一 
0359-- 


20 


昌 总 时 忆 有 区 吕 8 放 剖 只 总 世 总 疼 去 


名 总 如 双 总 疙 


A9 
8D 
A9 
8D 
60 
00 


ED 


FD 
ED 


JSR 
LDX 
LDY 
JSR 
LDA 
JSR 
LDA 
JSR 
LDA 
CMP 
BNE 
LDA 
CMP 
BEQ 
INC 
BNE 
INC 
LDA 
AND 
BEQ 
BNE 
JSR 


JSR 


LDA 
STA 
LDA 
STA 
RTS 
BRK 


$F940 
$06 

$07 
$FD96 
并 $A0 
$FDED 
($06),Y 
S$FDDA 
$06 

3$08 
$033A 
$07 
3$09 
3$0348 
$06 
$0340 
$07 
$06 

闪 $OF 
$031D 
$0324 
$FD8E 
$FD8E 
并 $38 
$0679 
并 $4B 
$0479 


66. 去 掉 打 字 机 上 不 必要 的 换行 


中 华 学 习 机 打印 输出 的 字 型 美观 大方, 但 也 有 不 足 之 
处 。 例如 : 您 若 要 打印 一 长 串 字 串 , 各 字符 之 间 是 以 “; ”紧凑 
格式 输出 , 便 会 出 现 满 256 个 字符 自动 换行 的 情况 , 从 而 破坏 
了 您 的 设想 。 若 想 不 发 生 这 种 中 途 换行 的 情况 , 就 请 使 用 以 
下 这 个 程序 。 

(1) 使 用 方法 : 

首先 键入 程序 并 存盘 , 可 起 名 为 PPRINT。 然 后 打 和 人 
BRUN PPRINT 便 进 入 改进 打印 模块 后 的 中 文 BASIC 
系统 , 在 此 系统 下 , 可 以 用 “ 西 文 " 键 进入 西 文 状态 , 若 想 再 回 
本 系统 , 不 能 用 “中 文 “ 键 , 可 以 用 色 命 令 进入 本 系统 。 

(2) 注 意 事项 : 

本 程序 在 磁盘 中 文件 名 : PPRINT 


素 家 素 
FILE NAME: PPRINT 
9%0F3 一 A9 8A 8D F6 03 
90F8- A9 91 8D F7 03 4C 8A 91 
9100- 29 和 C9 1 F0 09 20 AB 
9108- C3 20 12 91 4C B9 C3 4C 
9110- 3A C3 48 8D C9 03 98 48 
9118 一 8A 48 AD C9 03 48 20 24 
9120-- 91 4C DD EF 48 20 48 F6 
9128 一 A8 68 C0 00 FO IF 29 站 
9130- A8 AD F2 9%4 49 AS CD F3 
9138-- 94 FEF0 18 8D F394 A9 0A 


177 


178 


9140 一 20 
9148 一 AS 
9150- FC 
91S8 一 1D 
9160 一 7F 
9168 一 91 
9170 一 89 
9178 一 94 
9180 一 91 
9188-- 60 
9190 一 20 
9198 一 C0 
91A0 -10 
91A8 一 AA 
91B0-- 8D 
91B8 一 20 
91C0-- S3 
91C8 一 20 


C0 A9 
A9 03 
56 AA 
EO F8 
AA 85 
12 91 


25 


24 8D 


94 A9 


0D F0 
FB 07 


89 91 


38 了 9 
A9 FF 
A9 00 


91 EE 


C3 20 
50 C0 
AD 57 
85 74 
55 AA 


81 8D 
“00 85 


85 24 
B9 C3 


07. 文本 拷贝 


在 中 华 学 习 机 上 可 用 CTRL- Q 键盘 命令 拷贝 高 分 辩 
率 图 形 , 却 没有 系统 命令 用 来 拷贝 文本 内 容 。 下 面 的 一 段子 
程序 便 能 帮 您 把 文本 屏幕 上 的 内 容 拷 贝 下 来 ， 

(1) 使 用 方法 : 

键入 本 程序 后 , 再 用 GOSUBS5$0000 调用 即 可 打印 出 
文本 屏幕 内 容 ( 先 打 开打 印 机 ) 。 也 可 以 把 这 段子 程序 加 和 人 自 
已 的 程序 中 去 。 若 打印 机 不 接 在 1 号 槽 口 , 则 要 修改 ; 

50000 PR 并 nm 
n 为 打印 机 所 在 槽 口号 。 
(2) 注 意 事项 : 
本 程序 在 磁盘 中 文件 名 : COPY TEXT 


宗 率 本 

FILE NAME: COPY TEXT 
50000 PR## 工 
S0010 FORI = 1TO 23 
50020 VTAB I 

: HTAB 1 

: AS$ = 三 

: A = PEEK (40) + PEEK (41) 

让 250 

50030 FORJ = PEEK (36)TO 39 
50040 B =. PEEK (A. 二 了) 
5$0050A$ = A$ :+ CHR$ (B) 
S0060 NEXT 
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: PRINT AS$ 

: NEXT 
3S0070 PR 0 

: RETURN 


高 分 辩 率 图 形 局 部 打印 


如 在 一 幅 图 形 中 , 想 打 印 出 自己 感 兴趣 的 某 一 部 分 来 , 便 
可 以 使 用 以 下 程序 。 | 
(1) 使 用 方法 : 
键入 以 下 程序 , 便 可 直接 运行 ,开始 进行 打印 工作 。 执 行 
过 程 中 , 根据 提示 输入 以 下 各 项 参数 , 即 图 形 所 在 页 数 , 总 共 
打印 几 部 分 。 在 每 个 部 分 中 又 有 如 下 选择 : 该 部 分 形状 ( 1 长 方 
形 、 2 峭 圆 . 3 星 形 ) .各 部 分 中 心 座 标 及 其 对 应 形状 参数 。 林 
程序 设置 打印 机 在 一 号 槽 口 , 如 不 是 , 可 把 60 句 中 的 
PR 共 1 改 为 PR 并 n。 
(2) 注 意 事项 : 
本 程序 在 磁盘 中 文件 名 : PRINT PART 
宁 来 
FILE NAME: PRINT PART 
10 INPUT "PAGE <1/2> ? “; P 
: POKE -- 163010 
1 。 Ag$(1)=“4000<2000.3” 
: A$(2)=“2000<4000.57 
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20 


25 


35 


45 


: A$ =A$(P) +”FFFM N D823G” 


POKE 一 16384,0 


: POKE 一 16297,0 
: POKE 一 16300,0 


FORI= 1TOLEN(AY$) 


: POKE 5$11 + I，ASC (MIDS$(CA 


$，J 1)) + 128 


: NEXT 


POKE 72.0 


: CALL -- 144 
: INPUT "HOW MANY ? ";N 
: POKE 23032 


FORI= 1TON 


: PRINT ”<1> SQARE <2> CIRCL 


E <3> STARS” 
INPUT “WHICH ONE ( 1-3) 2? “; 


: HPLOT X 一 AZ+YTOXT+A， 


乙 十 立 


: NEXT Z 
JIFO=2THENINPUT "X, Y，A， 


B= ";X YA,， DB 


: FORZ = -BTOO 
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182 


55 


65 


:M=SQR(I1 -zsZz/1(Bs 


B)) * A 


: HPLOT X 一 MY-ZTOX+ M， 


二 


: HPLOT X 一 MY+ZTOX+ M， 


省 寺 克 有 


: NEXT Z 


IFO = 3THEN INPUT "X, Y，A， 
B=";X,Y,， A,，B 


: FORZ= 一 BTOO0 

:S= ABS(Z/B) (17/3) 
:C=SQR(1 一 SS*rS) 3 

: M =Av*rC 
”HPLOTX - MY- ZTOX+ M， 


7 


: HPLOT X 一 MY+ZTOXT+ M， 


玖 填 " 忆 


: NEXT Z 


NEXT 


: PR## 1 

: POKE 1913,17 

: PRINT CHR$( 17) 
: PR#0 


END 


09. 高 分 辩 率 图 形 竖 直 打 印 


高 分 辩 率 图 形 通常 是 横向 打印 , 但 由 于 打印 纸 的 宽度 限 
制 , 往往 使 得 在 选择 放大 打印 时 , 造成 图 形 丢掉 一 部 分 的 现 
象 。 下 面 一 段 程序 则 能 将 高 分 辩 率 第 一 页 的 图 形 改 为 竖 直 打 
印 。 一 般 来 说 , 就 不 会 出 现 丢 掉 的 问题 。 

(1) 使 用 方法 : 

键 和 人 程序 后 , 打开 打印 机 ,只 要 按 下 6000G (或 
CALL24576) 即 可 .。 若 要 打印 高 分 辩 率 第 二 页 图 形 , 须 将 
$ 602B 中 的 值 改 为 $ 40。 如 果 将 $ 602B 中 的 值 改 成 
了 $ 4C , 则 打印 出 来 的 竖 直 图 形 的 宽度 又 将 缩小 一 半 。 

(2) 注 意 事 项 : 

本 程序 在 磁盘 中 文件 名 : PRINT TURN 9%0 


审 宁 率 


FILE NAME: PRINT TURN 9%0 


6000- A9 00 853 09 85 1A A9 BF 
6008 一 83 06 A9 08 85 08 A9 07 
6010 一 85 0 85 19 A9 1lB 20 了 B6 
6018 一 60 A9 41 20 B6 60 A9 08 
6020 一 20 B6 60 A9 OA 20 B6 60 
6028 一 A4 09 A9 20 85 E6 AA 20 
6030-- Cl 60 Bl 26 % 00 1 C6 
6038 一 06 AS 06 C9 FF DO0 EF E6 
6040-- 0 A6 00 SS 00 1 3 00 
6048 一 10 Cc6 0 DO 1 A9 07 85 
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6050 一 07 
6058 一 的 
6060-- D0 
6068-- A5 
6070 一 85 
6078 一 00 
6080 一 1A 


6088-- D0 


6090 一 1B 
6098 一 60 
60A0 一 20 
60A8 一 20 
60B0 一 A9 
60BB 一 C1 
60C0 一 60 
60C8 一 05 
60D0 一 0A 
60D8 一 60 
60E0 一 83 


20 


3 SEESRQS8N 员 8 


4A 
27 
27 
05 


Cl 


己 系 & 


41 

85 
28 
A9 
B06 


过 8E 忆 ES 


0A 
0A 
E6 


70. 简化 高 分 辩 率 图 形 的 打印 输出 


高 分 辩 率 图 形 输出 功能 很 强 , 然而 打印 图 形 则 主要 取决 
于 所 给 的 命令 参数 。 而 参数 的 选择 地 址 的 计算 等 又 十 分 麻 
烦 , 一 旦 记 不 清楚 那 就 只 好 查 书 了 . 这 确实 不 太 方便 。 下 面 
这 个 程序 可 以 帮助 你 减少 许多 麻烦 。 

(1) 使 用 方法 : 

输入 程序 后 , 再 把 所 需 打 印 的 图 形 调 人 内 存 , 然后 就 可 以 
运行 本 程序 了 。 

参照 程序 提示 , 分 别 输入 各 个 选择 项 , 即 打 印 卡 所 在 槽 口 
数 , 图 形 所 在 页 数 , 是 放大 和 打印 还 是 缩小 打印 , 是 正常 打印 还 
是 反 相 打印 , 随后 便 可 得 到 所 要 的 图 形 了 。 当 然 , 不 要 忘 了 打 
开打 印 机 。 


(2) 注 意 事项 : 
本 程序 在 磁盘 中 文件 名 :LPRINT HIRE 
素 来 - 宁 
FILE NAME: LPRINT HIRE 
10 HOME 
: JINVERSE 
: VTAB 8 


20 JINPUT "PRINTER SLOT:“; SO 
: IF SO < 1OR SO > 7THEN 20 


24 PRINT 
INPUT "PAGE 1 OR 2 ? “; KK 
: PRINT 
INPUT "BIG (1) OR SMAL (2)? 
“3 


185 


186 


160 


170 


;PRINT 


INPUT "NORMAL ( 1) OR INVERS 
E(2)? “;，K2 

ON SO GOSUB 110,120,130,140 
,130,160,170 

NORMAL 
N=K+6*r(KL= 1) +32* 
( K2 = 1) 

POKE 1912 + SO,N 


: PRINT CHR$ ( 17 ) 
: PR## 0 


END 


PR 夫 1 
: RETURN 


PR# 2 


: RETURN 


PR##' 3 


: PEITURN 


PR 提 4 


: RETURN 


PR 并 5 


: RETURN 


PR# 6 


:RETURN 


PR#7 


: RETURN 


71. 改 进 BSAVE 命令 


在 DOS3.3 中 ,BSAVE 命令 用 于 把 内 存 中 的 机 器 语 
言 程序 存 人 磁盘 。 该 命令 带 A 、L 两 个 参数 , 分 别 表示 程序 的 
首 地 址 .长度 。 机 器 语言 程序 的 首 地 址 和 末 地 址 是 很 容易 得 
到 的 , 但 长 度 需 要 经 过 计算 。 若 把 参数 工 定义 为 未 地 址 , 那 存 
盘 就 一 定 方便 多 了 , 下 面 这 个 程序 就 可 完成 这 项 工作 。 

(1) 使 用 方法 : 

键 人 本 程序 后 , 直接 用 RUN 运行 即 可 。 若 要 把 机 器 语 
言 程序 存盘 时 , 可 用 下 面 的 格式 :BSAVE 文件 名 ,A $ 首 地 
址 ,L $ 末 地 址 , 若 不 想 每 次 存盘 时 都 先 调用 一 下 这 个 程序 ， 
在 运行 本 程序 后 ,用 IN IT 命令 格式 化 一 张 新 盘 , 以 后 只 要 引 
导 一 下 这 张 磁盘 , 便 可 得 到 改进 后 的 BSAVE 功能 。 

(2) 注 意 事 项 : 

本 程序 在 磁盘 中 文件 名 : SUPER BSAVE 


补 半 束 


FILE NAME: SUPER BSAVE 
10 FOR I = 48351 TO 48351 + 28 
: READ A 
: .POKE I，A 
: NEXT 
POKE 43364,255 
POKE 41809,76 
: POKE 41810.223 
: POKE 41811188 


凶 名 
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100 DATA 8&356237,113,170,141， 
109,170,152237,114,170,168， 
200.208,3,238,109,170,173,10 
9,170,40,32224,163,76.84,16 
3 


12 磁盘 检测 工具 


如 果 想 知道 自己 磁盘 的 磨损 程度 , 以 便 及 时 留 出 备份 。 
不 至 于 失去 重要 文件 。 为 了 检测 磁盘 的 好 坏 , 可 使 用 本 程 
序 。 

(1) 使 用 方法 
键 人 以 下 程序 后 用 300G 或 CALL768 调用 即 可 。 这 
时 屏幕 上 方 就 会 出 现 一 行 提 示 内 容 , 左边 是 磨损 程度 , 右边 是 
磁 轨 数 , 当 您 调 盘 时 便 会 显示 相应 数字 。 如 果 磨 损 程 度 的 数 
字 太 大 , 那 就 要 小 心 了 。 
(2) 注 意 事项 
本 程序 在 磁盘 中 文件 名 : VERIFY DISK 
素 宁 率 
FILE NAME: VERIFY DISK 
0300- A9 20 8D C9 BD A9 5$ 8D 
0308- CA BD A9 03 8D CB BD A9 


0310-- 7A 8D 6E BE A9 03 8D 6F 
0318-- BE A9 01 85 22 A2 00 BD 
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0320 一 2B 
0328 一 D0 
0330-- D2 
0338 一 A0 
0340-- A0 
0348 一 A0 
0350-- A0 
0358 一 48 
0360 一 BA 
0368 一 68 
0370-- 02 
0378-- 05 
0380 一 4A 
0388 一 06 
0390-- B0 
0398-- 25 


RQgSEHgS 


A0 


世 


去 


和 吕 愉 电 志 系 导 及 二 世 吕 只 关 品 g 问 


SBSRQgSse88Es8D&R& 


民 
忆 


189 


73. 显示 磁盘 扇 区 的 内 容 


假如 想 查看 磁盘 上 某 一 扇 区 的 内 容 , 可 使 用 下 面 这 个 程 
序 。 
(1) 使 用 方法 : 
键入 程序 后 , 打 人 运行 命令 RUN 。 然 后 根据 提示 信息 
分 别 输 入 磁 轨 、 扇 区 数 便 可 得 到 对 应 的 信息 。 按 任意 键 后 就 
能 再 读 人 新 的 扇 区 内 容 。 退 出 时 可 按 CTRL- C 或 
CTRL- RESET。 
(2) 注意 事项 : 
本 程序 在 磁盘 中 的 文件 名 : SECTOR DISPLAY 
来 来 来 
FILE NAME: SECTOR DISPLAY 
10 “DATA 32.227,3,76,217,3,160， 
(0 ,152,.32,218,253,169,18 
6 ,32,237,253,162,12,185 


,0,32.32,.218,253,202,2 
40 ,10200,.208,244,162,16 
,32.74.249,160,7 
15 ”DATA 169,160,32.237,.253,162 
, 12.152.5S6.233,1116&， 
185 ,0.32.9,128,201160,16 
,2.169,174,.32.237.253， 
202 ,240,4.200,208,.236 .96， 
200 ,7683 


70 


80 


85 


100 


FOR TI = 768 TO 842 


DVN = 1 


: BUFP = 8192 
: CMD = 1 


TEXT 


: HOME 


INPUT “TRACK :“; TRK 


: IF TRK <0 OR TRK > 38 THEN 


S0 
INPUT “SECTOR :"; SECT 


: IF SECT <0 OR SECT > 13 THEN 


30 
HOME 


: PRINT 0112345678 


9 A BT=”"; TRK;”S= ”SECT 
GOSUB 1000 


: JIF STA = 64 THEN PRINT CHR$ 


(7)”ERRI!7 


: RUN 


CALL 774 


: PRINT 
: GET AS$ 
: GOTO 30 
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1000 REM READ/WRITE TRACK&SECTOR 
1030 IOB =47080 
: POKE IOB + 01 
: POKE IOB + 2DVN 
: POKE IOB + 30 
: POKE IOB 十 4TRK 
: POKE IOB + SSECT 
1040 POKE IOB + 8BUFP -INT (B 
UFP / 2S6) * 256 
: POKE IOB + 9, INT (BUFP / 2 
56 ) 
: POKE IOB + 110 
: POKE IOB + 12,CMD 
105S0 CALL 768 
: STA = PEEK (IOB+ 13) 
: RETURN 
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14. 恢复 被 删除 的 文件 


如 果 在 无 意 中 删 掉 了 一 个 很 重要 的 文件 , 那 将 是 一 件 很 
遗憾 的 事情 。 不 过 有 了 下 面 这 个 程序 , 那 就 不 用 发 愁 了 , 它 
能 把 删除 了 的 文件 “ 救 " 回来 。. 

(1) 使 用 方法 : 

键 人 本 程序 后 , 可 以 用 RUN 直接 运行 。 然 后 根据 提示 ， 
输入 被 删 掉 的 那个 文件 的 文件 名 ， 那 么 这 个 文件 就 会 又 在 您 
的 磁盘 上 复活 了 。 

(2) 注 意 事 项 : 

本 程序 在 磁盘 中 的 文件 名 : UNDELETE 

宰 齐 率 

FILE NAME: UNDELETE 

100 FOR X = 780 TO 799: READ Y: POKE 
X,，Y: NEXT : POKE 47083,254 : POKE 
6232: POKE 7,183: POKE 4708 
80: POKE 47089,150 

300 TEXT : HOME : HTAB 3: INPUT 
”ENTER FILE NAME:"; S$: B = 3 
8400: POKE 47084,17: XU = 0 

310 FOR X = 15 TO 1 STEP -- 1: POKE 
47085X: POKE 47092,1: CALL 
780: IF PEEK ( 47093) < > 0 
THEN PRINT “ERR“: END 

320 FORY = 11 TO 221 STEP 3: IF 
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330 


350 


410 


PEEK (B + Y) = 25$ THEN GOSUB 
400 ， 

IF XU = 1 THEN POKE (B + Y) 

，PEEK (B + Y + 32): POKE (了 B 
十 Y+32)，160: POKE 47092,2 

: CALL 780:Y = 221:X = 1: IF 
PEEK ( 47093) < > 0 THEN PRINT 
”ERR": END 

IF PEEK (B + Y) + PEEK (B 二 

Y+1l)=0THENY=221:X= 
1 

NEXT : NEXT : VTAB 18: HTAB 

5: IF XU = 1 THEN PRINT "FI 

LE RECOVERED IN VTOC": VTAB 
20: HTAB 5$: PRINT "REMEMBER 

TO LOAD ANAVE IT” 

IF XU = 0 THEN PRINT “FILE 
NOT FOUNDY” 

END 


IF LEN (S$) < 30 THEN S$ = 
S$+ MIDS$(” 
“，130 -- LEN 

(S$)): XU = 1 
FORZ= 1TOo29: IF PEEK (了 B 

+Y+Z+2)< >ASC(CMDS$ 
(S$，Z，1)) + 1l28 THEN XU = 0: 
Z -= 30 
NEXT : RETURN 
DATA 1065,7,164,6,32.217,3,17 
66169,0,160,13,14S,6,96,23 

4234,234. 234， 


75. 磁盘 解密 小 程序 


许多 加 密 软件 采用 在 文件 目录 中 加 入 不 显示 的 字符 ( 按 
CTRL 加 字母 键 产生 ) ,用 这 种 方法 使 别人 无 法 读 出 程序 ， 
达到 保密 的 目的 。 本 程序 则 可 将 文件 名 中 的 不 显示 字符 转变 
为 相应 的 小 写字 母 而 显示 出 来 , 可 使 真实 的 文件 名 一 目 了 然 ， 
从 而 解密 。 

(1) 使 用 方法 : 

输入 程序 后 ,用 UNELO CK 为 名 字 存 人 磁盘 。 使 用 时 ， 
打 和 人 人 RUN UNLO CK 就 可 以 列 出 目录 。 

(2) 注意 事项 : 

本 程序 在 磁盘 中 文件 名 : UNLOCK 


训 率 宁 


FILE NAME: UNLOCK 

10 FOR I = 768 TO 783: READ A: POKE 
I，A: NEXT 

20 POKE 43603,0: POKE 43604.3 

30 PRINT CHR$(4) ”CATALOG” 

40 DATA 201141,240.4,201160,14 
4,3,76.240,253,103,192,76,24， 
02S3 
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76.DO S 出 错 信息 的 汉化 


在 中 华 学 习 机 上 , 充分 利用 其 汉字 功能 , 使 出 错 信息 汉化 ， 
将 给 使 用 者 带 来 很 大 方便 。 下 面 这 段 程 序 就 能 够 用 汉字 显示 
DOS 出 错 信息 。 它 在 西 文 状 态 依旧 由 原 程序 处 理 , 即 依旧 
为 英文 提示 出 错 信息 , 而 在 中 文 状态 下 则 全 部 转 为 汉字 支 
持 。 

(1) 使 用 方法 : 

键 人 本 程序 后 , 可 在 监控 中 用 7000G 直接 运行 或 在 
BASIC 状态 下 用 CALL28672 调用 便 可 达到 目的 。 这 个 
程序 适用 于 标准 DO S 和 快速 DOS， 

(2) 注 意 训 项 : 
本 程序 在 磁盘 中 文件 名 : ERR INTO CHINESE 


率 宁 字 


FILE NAME: ERR INTITO CHINESE 


7000-- A9 4C 8D E6 A6 A9 10 8D 
7008 一 E7 A6 A9 70 8D E8 A6 60 
7010-- AE SC AA AD 53 AA C9 2B 
7018-- FO 03 4C E9 A6 20 3C 70 
7020-2 SI A8 A9 0B 加 2B C3 
7028 一 加 SE A6 BO 0C A2 10 2 
7030 一 3C 70 A6 75 A5 76 24 
7038-- ED 6C SE 9% BD 06 71 AA 
7040 一 BD 4C 70 4 2 2 C3 E8 
7048-- 68 10 F5 6 7F 5 6E 7F 


196 


7050 一 和 
70S8 一 7F 
7060-- 2 
7068- 自 
7070 一 7F 
7078 一 E9 
7080- 4D 
7088 一 7F 
7090- D3 
7098- 名 
70A0 一 7F 
70A8- 
70B0 一 3B 
7UB8-- 7F 
70C0 一 了 
70C8 一 46 
70D0 一 7F 
70D8-- SF 
70E0-- 34 
70E8 一 7F 
70F0-- 39 
70F8-- 3C 
7100-- 4F 
7108 -- 0C 
7110- SD 
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77. 自动 给 存盘 文件 加 上 和 名称 


在 DOS3.3 中 , 可 以 输入 一 个 长 达 三 十 个 字母 的 文件 
名 。 因此 , 对 每 一 个 程序 都 可 以 起 一 个 很 详细 的 文件 名 。 这 
自然 是 一 件 好 事 。 然 而 , 在 输入 一 个 较 长 的 程序 时 , 分 次 存盘 
都 要 键 人 那 长 长 的 文件 名 又 是 一 件 麻 烦 的 事 。 下 面 这 个 程序 
可 以 帮助 您 解除 这 个 麻烦 

(1) 使 用 方法 : 

键 和 人 本 程序 后 先 不 要 运行 , 再 打 人 : 
POKE41049,76:POKE41050,34:POKE41051,3 
然后 ,用 CALL768 调用 。 存 盘 时 只 需 用 SAVE @, 便 能 将 
内 存 中 程序 以 上 次 用 过 的 文件 名 存 人 磁盘 。 

(2) 注 意 事项 : 

本 程序 在 磁盘 中 文件 名 : DOS. AUTO. NAME 

冰 宁 冰 
FILE NAME: DOS .AUTO .NAME 
0300-- 20 8E FD A0 00 B9 6D: 03 
0308-- 20 ED FD C8 CO 1E 90 F5 
0310-- 20 8E FD B9 6D 03 20 ED 
0318-- FD Cc8 c0 3C 9% F5 20 
0320-- FD 60 48 A9 1E 8C 5B 
0328-- 18 6D SB AA 8D 6C 03 
0330- C9 C0 D0 25 了 B9 
0338 二 75 AA C8 CC 6C 03 9%0 F4 
0340- 4C 61 A0 4C 6 A0 20 93 


呈 员 癌 
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0348 一 Al 
0350 一 03 
0358 一 A0 
0360 一 CC 
0368 一 AA 
0370-- A0 
0378 一 A0 
0380 一 A0 
0388 一 A0 
0390-- A0 
0398 一 A0 
03A0 一 A0 
03A8 一 A0 


F8 
C0 
A9 
03 
4B 
A0 
A0 
A0 
A0 
A0 
A0 
A0 


轨 世 上 岂 癌 
ES 屋 关 当 


03 
A0 
A0 
A0 
A0 
A0 
A0 
A0 


A0 
A0 
A0 
A0 
A0 
A0 
A0 


只 十 冶 


AC 
A0 
A0 
A0 
A0 
A0 
A0 
A0 
A0 


6D 
61 

C8 
SB 
A0 
A0 
A0 
A0 
A0 
A0 
A0 
A0 
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78.TYPE 功能 的 建立 
TYPE 指令 是 CP/ 下 系统 上 一 条 常见 指令 , 它 
可 以 列 出 文件 , 尤其 是 了 型 文件 的 内 容 。 下 面 这 段 小 程序 便 
能 在 DOS3.3 下 具有 TYPE 功能 。 
( 妇 使 用 方法 : 
键 和 人 本 程序 后 , 直接 用 RUN 运行 , 便 能 具有 此 功能 了 。 
使 用 时 只 需 键 人 TYPE< 文件 名 > 便 可 列 出 该 文件 内 


容 。 
(2) 注 意 事项 : 
INIT 命令 无 效 ， 
本 程序 在 磁盘 中 文件 名 : TYPE 
素 宁 村 
FILE NAME: TYPE 
10 FORI= 48214 TO 48268: READ 
A: POKE I, A: NEXT ::A = 4022 
2: POKE A，8$: POKE A 十 1188 
: A = 43140: POKE A，84: POKE 
A++189: POKE A 二 280: POKE 
A 十 3197 
20 “DATA 32,.168,162,32,142.253,3 
2140,166,9,128,32.237,253,1 
73,0,192,16,23,44,16,192.201 
,131,240,23,201147,208,12,1 
73,0,192,16,251,44,16,19220 
1131,240,7,173,197,181,201， 
S,.208,213,32,142,253,76,252 
,162 


19. 改进 的 RENAME 


在 DOS3.3 中 ,RENAME 语 句 没有 特殊 的 判断 , 往往 导 
致 改名 后 硫 盘 上 出 现 两 个 名 称 相同 的 文件 , 从 而 使 得 其 中 一 
个 无 法 调用 。 下 面 这 个 程序 则 能 自动 搜寻 磁盘 上 所 有 的 文件 
名 , 若 发 现 改 名 后 名 称 与 磁盘 上 文件 名 称 重复 了 , 就 会 给 出 相 


(1) 使 用 方法 : 


键 人 本 程序 后 , 先 设 定 HIMEM:38144, 然后 在 监控 
中 调用 94FSG 。 其 后 再 进行 RENAME 时 就 具有 自动 识 


别 功能 了 。 
(2) 注 意 事 项 : 


本 程序 在 磁盘 中 文件 名 : SUPER RENAME 


字 


来 


FILE NAME: SUPER RENAME 


94FS 一  A9 
94F7-- 8D 
94FA 一 A9 
94FC- 8D 
94FF -6 

9500 一 。 A9 
9502- “8D 
9505 一 。 A9 
9507- ”8D 
950A 一 A9 

950C- 8D 


00 
3B 
95 
3G 


BE 
D2 


AC 


AC 


B1 


BI1 


LDA 


并 $00 
$AC3B 
并 $95 
$AC3C 


井 $BD 
$B1CD 
并 $BE 
$1D2 
#$B60 
$AB46 
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95OF 一 
9512 一 
9514 一 
9517 一 
9519 一 
951lC 一 
951E 一 
9521 一 
9523 一 
9526 一 
9529 一 
952C 一 
952F 一 
9532 一 
9535 一 
9536 一 
9537 一 
953A 一 
95S3D 一 
953E 一 
9540 一 
9543 一 
9545 一 
9547 一 
9548 一 
9549 一 
954A- 


8D 


95 


B3 


A0 


00 


$AB28 
并 $C3 
$B1CD 
夫 $C4 
$B1D2 
并 $90 
$AB46 
$9526 
$AB28 
$FD8E 
$FD8E 
$954A 
$954B 
$DB3A 


$FD8E 
$B37F 


$Cc9 
$A0C5 
$D8 

##$D3 


$0095S,X 


80. 跟踪 显示 磁盘 读 写 位 置 


运行 本 程序 后 , 在 屏幕 的 右 下 角 便 能 显示 出 每 次 对 磁盘 
处 理 时 读 写 的 磁 轨 , 扇 区 数 及 驱动 器 号 , 方便 使 用 者 随时 查看 。 
若 出 I/0 等 错误 也 可 发 现 错误 之 处 。 


(1) 使 用 方法 : 
键入 本 程序 后 , 直接 用 RU N 运 行 计算 机 便 具 有 上 述 功 能 ， 
(2) 注 意 事项 : 
本 程序 在 磁盘 中 文件 名 : DISPLAY TRACK 
素 来 
FILE NAME: DISPLAY TRACK 
30 ”TEXT 
: HOME 
: PRINT “DISPLAY TRACK 
40 ”PRINT "DISPLAY IN HEX. NO. 
S0 FORI= 672 TO 767 
60 “READ X 
70 “ POKE I, X 
80 ”NEXTI 
90 CALL 672 
100 DATA 162,2,189,172,2,157.,0 
，189,202,16,247,96,76,175,2， 
132,72,133,73,162.7,189,240,， 
7,1S7,167,2,169,160,157,.240， 
7.202,208 


203 


110 DATA 2421604,177,72322 
32.2232200177,72322412 
,232160,2177,723224123 
24189,160,7,183,1672153 

120 DATA 240,7,136.208.247,96， 
72,74,14,7474,.322412104， 
41,15,9,176.201,186,144,210 
,6232157,241,7,90 


81.RWTS 追踪 器 


这 个 程序 可 以 显示 当 DOS 工作 时 RRWTS 正在 使 用 的 
参数 。 运 行程 序 后 , 只 要 调用 磁盘 , 屏幕 右 下 角 便 有 如 下 显示 : 
首先 是 一 个 字母 (R 表示 读 、W 表示 写 、S 表示 查找 、F 表示 
初始 化 ) , 接着 是 一 个 十 六 进 制 数字 , 表示 磁 轨 数 , 跟着 的 十 六 
进 制 数字 表示 扇 区 数 , 最 后 的 两 个 十 六 进 制 数 是 资料 缓存 区 
地 址 。 

(1) 使 用 方法 : 

键 人 本 程序 后 , 在 监控 下 用 9$00G 或 在 BASIC 状态 
下 用 CALL38144 调用 本 程序 , 计算 机 便 具有 以 上 功能 。 

(2) 注 意 事项 : 

本 程序 在 磁盘 中 文件 名 : DISPLAY RWTS. IOB 


FILE NAME: DISPLAY RWTS. IOB 
95 99 <B7 


9500- A0 
9508 一 88 
9510 一 95 
9518 一 D2 
9S20 一 A2 
9528 一 86 
9530 一 F3 
9538 一 95 
9540 一 48 
9548 一 20 
9550 一 20 


9558 一 95 20 


9560 一 0C 
9568 一 D0 
9570 一 4A 
9578 一 OF 
9580 一 0 


02 了 B9 
10 F7 
85 74 


14 


00 
20 
8 
BD 


85 
1C 
48 
EB 
07 
A8 
A0 


丰台 只 


双 
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82. 寻找 字 串 在 磁盘 中 位 置 


若 想 从 磁盘 中 找 出 一 串 字符 , 却 不 知 它 所 在 位 置 时 , 那 就 
无 异 于 大 海 捞 针 了 。 不 过 有 了 下 面 这 段 程序 的 帮助 , 则 可 以 
轻而易举 地 完成 这 项 工作 。 


(1) 使 用 方法 : 


本 程序 由 一 段 BASIC 主 程序 和 一 段 机 器 语言 子 程序 组 
成 , 它们 分 别 用 于 输入 与 查找 。 用 RUN 运行 BASIC 主 程 
序 后 , 根据 提示 输入 查找 的 开始 与 结束 的 磁 轨 与 扇 区 , 跟着 便 
选择 用 TEXT ( 字 曲 ) 或 HEX (机 器 码 ) 输入 查寻 资料 。 匣 
用 HEX 输入 , 先 输入 机 器 码 的 总 数 , 然后 再 逐个 输入 。 最 后 
输入 是 用 高 速 查找 还 是 用 低速 查找 (建议 使 用 者 在 字 串 少 于 
十 时 用 高 速 查找 , 否则 用 低速 查找 ), 然后 计算 机 开始 查找 , 并 
显示 出 字 捉 所 在 磁 轨 数 、 扇 区 数 及 开始 位 置 。 
(2) 注 意 事项 : 
BASIC 主 程序 在 磁盘 中 文件 名 : 
FIND STRING IN DISK. SYS 
机 器 语言 子 程序 在 磁盘 中 文件 名 : 
FIND STRING IN DISK 
率 率 素 
FILE NAME : FIND STRING IN DISK. SYS 
10 TEXT 
: HOME 
: DIM C( 255 ) 


15 


这 包 


70 


SS 


110 


D$ = CHR$( 4) 


: PRINT D$"” BLOAD FIND STRING 


IN DISK 
FORI = 1TO3STEP2 
VTAB I 


: INVERSE 

: HTAB 14 

: PRINT ”: 
: NEXT I 


VTAB 2 


: HTAB 14 
: PRINT "STRING FINDER“” 


NORMAL 


: PRINT 
: PRINT 
: PRINT "BY ANDREW LUI KWOK 下 


: PRINT 
: INPUT "TRACK START? "; T$(1) 


INPUT "SECTOR START? “; T$(2) 
INPUT "TRACK END? “; T$(3) 
INPUT "SECTOR END? “; T$(4) 
FORK = 1To4 


: B$ =T$(K) 
: GOSUB 1000 
: POKE 251 + K,B 


: NEXT K 
120 POKE 347 
: HOME 
: PRINT “TEXT OR HEX INPUT? 
: GET K$ 
: IF K$ =“H"” THEN 200 
130 INPUT "STRING?"; ST$ 
140 LL= LEN(ST$ ) 
: FORI= 1TOL 
: L$ = MID$(ST$，I，1) 
: C(I) = ASC(L$) + 128 
: NEXT 1 
1S0 ”GOTO 2000 
200 INPUT “LENGTH OF BYTES? “; 工 
210 FOR M = 1TOL 
: PRINT "BYTE ";M;"? “; 
: INPUT B$ 
:GOSUB 1000 
: C(M) = B 
: NEXT M 
220 GOTO 2000 
1000 Hg$ =“0123456789ABCDEF 
:B=0 
1010 D = LEN (了 By$ ) 
1020 FOR IE = 1 TOD 
: FORJ= 1TO16 
1030 IF MID$( H$ ,J, 1) = MIDS$ (人 
B$, D 一 工 +11) THEN B 
=B+((J-1)*16*(I 一 1 
) ) 


:了 == 16 


1040 


NEXT 了 


: NEXT T 
:RETURN 


2000 


PRINT “HIGH OR LOW SPEED?“ 


:GET 地 
: JIF K$ =:"H"THEN FORI = 2 


4964 TO 24966 


: POKE I，234. 
: NEXT 1 


2001 


POKE 34,0 


: FORI= 1TOL 


: POKE 20479 + I，C( 
: NEXT 
: POKE 238,L 


HOME 


: PRINT“PRESS RETURN TO STAR 


1 。 
T ， 


: GET KS$ 
: PRINT 
: PRINT “STRING FOUND AT:” 


2010 


CALL 25036 


: PRINT 
: PRINT “WORK DONE! ALL OK! 
: SPEED= 255 
: END 
FILE NAME : FIND STRING IN DISK 
*#6100.6 OO FC 
0100-- 01 600 01 0 1 OF FB B7 
6108 一 00 70 0 0 01 00 FE 60 


210 


6110 一 
6118 一 
6120 一 
6128 一 
6130 一 
6138 一 
6140 一 
6148 一 
6150 一 
6158 一 
6160 一 
6108 一 
06170 一 
6178 一 
6180 一 
6188 一 
6190 一 
6198 一 


61A0 一 
061A8 一 
61B0 一 
61B8 一 
61C0 一 
61C8 一 
61D0 一 
61D8 一 
61E0 一 
61E8 一 
61F0 一 
61F8 一 


01 

04 
F2 
20 
18 

0A 
61 

60 
A5 
A9 
F1 
FU 
F7 
F8 
49 
70 
F3 
20 
01 

24 
20 
20 
20 
20 
95 
02 
30 
00 
FF 
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83. 将 十 进 制 化 为 二 进 制 


这 个 程序 虽然 短小 , 但 却 很 有 特色 , 它 不 但 能 将 键 和 人 的 十 
进 制 整数 化 成 二 进 制 整数 , 而 且 还 能 将 任意 非 负 十 进 制 数 化 
成 相应 的 二 进 制 形 式 , 打印 在 屏幕 上 。 

(1) 使 用 方法 : 

键 和 人 本 程序 后 直接 用 RUN 命令 运行 , 见 到 输入 提示 符 
后 便 可 键 人 一 个 非 负 十 进 制 数 , 程序 将 自 左 向 右 逐 位 输出 结 
果 , 直到 机 器 精度 允许 的 位 数 。 在 输出 过 程 中 , 如 果 不 需 太 多 
位 数 , 可 按 任意 键 结 束 。 

(2) 注 意 事项 : 

本 程序 磁极 文件 名 : CHANGE 10 INTO 2 


宁 宁 闲 

FILE NAME: CHANGE 10 INTO 2 
10 INPUT N 

:W=1 
20 W=W*r2 

:JIFW < =NGOTO 20 
30W=W/2 

:JIFW=.5$THEN PRINT .|; 
40 IF WwW > NTHEN PRINT 0 ; 


: GOTO 60 
3S0 N=N 一 W 
: PRINT 1; 
60 IF PEEK (49152) > 128 THEN 
END 


70 IFW>1ORN >0GoOTO 30 
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84. 将 二 进 制 化 为 十 进 制 ， 


这 个 短程 序 可 将 100 位 以 内 的 二 进 制 整数 化 为 十 进 制 
数 。 
(1) 使 用 方法 : 
键入 本 程序 后 , 可 直接 用 RUN 命令 运行 , 这 时 屏幕 上 只 
有 光标 在 闪 , 使 用 者 只 能 按 0、1 或 RETURN, 而 其 它 键 输 
人 的 信息 不 予 理 采 。 这 是 为 避免 误 操 作 而 设计 的 。 键 和 人 要 化 
的 二 进 制 非 负 整数 后 , 程序 会 将 转化 结果 用 等 式 表 示 出 来 。 
(2) 注 意 事 项 : 
本 程序 磁盘 文件 名 :CHANGE2 INTO 10 


素 素 率 


上 ILE NAME: CHANGE2 INTO 10 


10 “DIM A(l00) 
20 I=I+1 
30 GETAS$ 

: IF ASC (A$) =13GOTO 60 
40 IFA$ < "0ORAS$S > 1GOTO 30 
S0 AD= VvAL(ASY$) 

: PRINT A $ ; 

: GOTO 20 
60 FORJ =1T0i 
70 S=S+AJ)*2、 人 (II 一 本 -1 
80 “NEXT 

: PRINT“=“;S 
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85. 将 十 进 制 化 十 六 进 制 


中 华 学 习 机 的 监控 状态 即 “* 提示 符 的 状态 下 , 只 接收 十 
六 进 制 数码 , 在 汇编 中 也 用 十 六 进 制 数 。 所 以 , 十 进 制 数 化 
为 十 六 进 制 是 很 必要 的 。 下 面 这 个 程序 便 可 完成 这 种 转化 。 


(1) 使 用 方法 : 


键 人 本 程序 后 . 可 直接 用 RUN 命令 运行 , 见 到 “? ”提示 
符 便 可 输入 一 个 十 进 制 数 , 然后 回 车 , 便 会 看 到 转化 结果 。 
(2) 注 意 事项 : 
本 程序 磁盘 文件 名 : CHANGE 10 _TNTO 16 
率 宁 


宁 


FILE NAME: CHANGE 10 INTO 16 


10 


20 


当 S 8 YX 


口头 对 轩 关口 一 关口 


到 
3 
乙 


一 INT (G/D)*D 
一 : 攻 


199R ”一 工 


从 
让 
人 | 
闪 必 
区 ~ 
2 


IFG >0THENI =I+1I 


: GOTO 30 


FORJ= ITO1STEP 一 1 
IF W(J) < 10THEN PRINT W(DJ)); 


: GOTO 90 


PRINT CHR $ (33+WJ) ); 
NEXT IJ 
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80. 将 十 六 进 制 化 为 十 进 制 


无 论 是 自己 编写 的 汇编 程序 还 是 系统 软件 中 的 子 程序 ， 
其 十 六 进 制 地 址 一 般 可 直接 得 到 , 而 在 BASIC 状态 下 用 
POKE 输入 或 用 CALL 调用 却 需 要 十 进 制 数 , 为 帮助 你 计 
算 , 特 提 供 下 面 这 段 程 序 , 它 可 准确 快速 地 将 十 六 进 制 数 化 为 
十 进 制 。 

(1) 使 用 方法 : 

。 键入 本 程序 后 , 可 直接 用 RUN 运行 。 见 到 “? ”提示 符 
后 输入 十 六 进 制 数 , 回 车 后 立即 见 到 结果 。 
(2) 注意 事项 : 
输入 的 数 只 能 含有 0 ~ 9 及 A ~ 下 十 六 个 字符 , 否则 
便 不 是 一 个 非 负 十 六 进 制 整数 , 结果 也 将 不 正确 。 
本 程序 磁盘 文件 名 : CHANGE 16 INTO 10 
率 宁 率 

FILE NAME: CHANGE 16 INTO 10 
10 INPUTX $ 
:N= LEN (X$) 


:W=1I 
20 FORI =NTO 1STEP 一 1 
:A$ = MDS$ (XS$，,L1) 


30 A= VAL(AS$) 
:IF ASC (A$) > 64THENA = 
ASC (AS$) -55 
40 S=S+WyA 
:2W=W*rl6 
: NEXT 
: PENNT S 
: END 
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87. 求 商 的 前 N 位 


我 们 知道 , 中 华 学 习 机 表示 实数 只 有 九 位 有 效 数字 , 一 般 
情况 下 是 够 用 了 。 但 有 时 需要 更 多 位 的 精确 值 , 例如 A 除 以 
B 的 商 , 要 精确 到 50 位 有 效 数 字 。 下 面 这 个 程序 就 可 以 求 出 
A 除 以 B 的 商 , 精确 到 N 位 有 效 数 字 , 其 中 N 是 任意 的 自 
然 数 。 

(1) 使 用 方法 : 

键入 本 程序 后 , 直接 用 RUN 运行 。 当 见 到 “? ”提示 符 
后 依次 输入 A、B、N 的 值 , 即 被 除数 、 除数 、 商 的 位 数值 , 回 
车 后 便 可 看 到 商 的 N 位 准确 数字 ， 

(2) 注意 事 项 : 

输入 时 A.、B、N 的 顺序 不 能 错 。 本 程序 在 磁盘 上 的 文 
件 名 :A/B 


素 素 宁 


10 INPUT A,B,N 
20 C= INTIA/B) 
: PRINT C ; .”; 
30 A=A 一 Br*rC 
:A=A*yl0 
40 FORI= 1l1TON -1 
5 FORJ= 1TO 9 
60 IFA <JyrBTHEN 80 
70 NEXTIJ 
80 CC=J-1! 
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: PRINTC ， 
0 A=A 一 了 BxsC 
: A=A*l0 
100 NEXTI 
: END 


88. 对 A 数组 进行 排序 


所 谓 排序 就 是 把 数据 按 大 小 排放 好 , 这 里 提供 一 个 排序 
程序 , 在 一 个 一 维 数组 自身 的 排序 程序 中 , 速度 是 较 快 的 一 
个 。 所 以 , 它 适用 于 内 存 较 小 而 数据 量 很 大 的 情况 。 本 程序 
被 排序 的 数据 是 随机 产生 的 , 目的 在 于 演示 。 实 用 中 ; 需 将 含 
随机 函数 RND(X) 的 语句 改 为 READ 或 INPUT 语 
句 。 

(1) 使 用 方法 : 
键 人 本 程序 并 用 RUN 运行 。 见 到 “? "提示 符 后 输入 数 
据 个 数 , 回 车 后 便 会 看 到 演示 结果 。 
(2) 注 意 事项 : 
本 程序 在 磁盘 中 文件 名 :PC5 
床 冰 本 
FILE NAME: PC5 
10 INPUTN 
: DIM A( N ) 
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名 


120 


130 


140 


FORI =0TON 一 1 


: A(I) = RND (1) 
: NEXT 1 


B= INT(N/2) 

IFB < =0THEN 130 

C = 了 B 

IFC > =NTHEN 120 
D=C-B 

IFD < 0THEN 100 

IF A(D) > A(D + B)THEN 110 
C=C+l 


: GOTO 60 


E = A(D) 


:A(D)=AD+B) 
: A(D +B)= 王 
:D=D 一 了 B 

: GOTO 80 


B= INT (B/2) 


: GOTO 40 


FORI =0TON -1 


: PRINT A(I)， 
: NEXT1I 


END 
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89. 快速 排序 


顾名思义 , 这 个 排序 程序 一 般 速 度 较 快 ,只 是 占用 的 内 存 
多 一 点 ,除了 被 排序 的 一 个 一 维 数组 , 还 要 附设 一 个 数组 , 所 
以 ,在 内 存 许 可 的 条 件 下 , 可 选用 这 个 程序 。 
(1) 使 用 方法 : 
键入 并 运行 此 程序 , 见 到 “? ”提示 符 后 输入 排序 数据 的 
个 数 , 回 车 后 便 会 见 到 演示 结果 。 
(2) 注 意 事项 : 
欲 将 此 程序 用 于 实际 , 需 改 本 程序 前 部 的 赋值 语句 部 
分 。 
本 程序 在 磁盘 上 的 文件 名 : PKS 
来 冰 灾 
FILE NAME: PKS 
10 INPUT N 
: DIM A(N),Z(N). 
20 FORIL = 1TON 


: A(I) = INT (100* RND (3) 
) 
: NEXT 
30 IT=1 
: Z(I) =N +1 
:Q=1 
: H =N 


40 ”GOSUB 100 
: 工 =I 十 1 
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: Z(I) = 
0 IFX 一 Q>1ITHENH =X- 一 1 
: GOTO 40 
60 Q=Z()+1 
:TI=I 一 1 
: IFI <0 0OTHEN 90 
70 IFZG-Q>1LITHENH =Z(I) 一 1 
: GOTO 40 
80 GOTO 60 
90 FOR TI = 1TON 
: PRINTA (了 J)， 
:， NEXT 
: END 
1l100 EL=Q 
: 及 = 丽 
1l110 IFR-L=0THENX = 有 R 
， RETURN 
120 IF A(R) < A(L)THENT = A(R) 
: A(R) =A(L) 
: A(L) = T 
| 
: GOTO 140 
130 R=R 一 1 
: GOTO _ 110 
140 JIFR 一 L=0THENX = 有 
; RETURN 
1$0 IFA(R) < AUL)THENT =A(R) 
: A(R) = A(L) 
: A(L) =T 
:R=R 一 1 
: GOTO 110 
1600 L=L+1l 
: GOTO 140 
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2?0. 合并 排序 


前 面 两 个 排序 程序 只 是 在 一 般 情 况 下 速度 较 快 , 但 对 一 
些 特 殊 的 数据 分 布 便 影响 速度 。 下 面 这 种 合并 排序 法 可 以 把 
比较 次 数 降 至 最 低 限 度 , 从 而 在 任何 情况 下 保证 排序 速度 。 
它 占用 内 存量 与 快速 排序 相当 。 
这 个 程序 的 另 一 特点 是 适合 于 外 存 排 序 , 它 稍 加 改动 便 
可 把 磁盘 上 两 个 有 序 文 件 排 成 一 个 有 序 文 件 。 
本 程序 也 是 演示 性 的 , 输入 的 排序 个 数 只 能 是 2 的 整数 寡 ， 
否则 程序 自动 予以 修改 。 实 用 中 可 根据 需要 稍 加 改动 。 
(1) 使 用 方法 : 
键 和 人 并 运行 本 程序 , 见 到 “? ”提示 后 输入 排序 数据 个 数 ， 
回 车 便 开 始 排序 。 
(2) 注意 事项 : 
本 程序 在 磁盘 中 文件 名 : PHB 
宁 素 率 
FILE NAME: PHB 
10 INPUTN 1 
:IN =1 
:U=1 
19 N=2*N 
:IFN <=NITHENX =X+1l 
:GOTO 15 
18 N =N/ 
: DIM _A(LN) 
20 FORI =1TON 


癌症 


70 


110 


: A(V,I).= INT (100*RND (3)) 
: NEXT 


T=1 


: FORI = 1TOX 
: TI. 一 29T 


FORJ =1TON -一 T+1STEPT 
A =J 


:B=A+T/2 
:IC= 王 了 B 一 1! 
:2D=A+T 一 1 


GOSUB 100 


: NEXT IJ 


: NEXT I 


FORI =1TON 


: PRINT A (V,D) 
: NEXT 
: END 


Z=A 一 1| 
Z=Z+1l 


: IFA(V,A) < A(V,B)THEN 1 40 


A(U,Z) = A(V,A) 


:A=A+1 
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130 


140 


1S0 


160 


170 


: IFA < =CTHEN 110 


M = 了 D 

: 工 = 三 了 B 

: GOTO 160 
A(U,Z) = A(V,B) 

: B=B 二 1 

: IFB < = 了 DTHEN 110 
M = C 

: 工 三 人 A 


FOR W =LTOM 


:Z=Z+1l 


A(U,Z) = A(V,W) 


:， NEXT 
:RETURN 


9?1. 无 交换 的 排序 


一 般 的 排序 程序 均 会 改变 原来 被 排序 数据 的 存 迪 位置， 
这 种 位 置 交换 必然 花费 大 量 的 时 间 。 下 面 的 这 段 程序 没有 数 
据 交 换 , 一 来 保留 了 原始 数据 的 本 来 面目 ,二 来 节省 了 时 间 。 
当然 , 内 存 用 多 了 一 些 , 速度 一 般 与 快速 排序 相当 。 
(1) 使 用 方法 : 
键 和 人 并 运行 本 程序 后 , 见 到 “? ”提示 符 时 输入 排序 数据 个 
数 , 回 车 后 便 开 始 排序 。 
(2) 注 意 事项 : 
本 程序 在 磁盘 中 的 文件 名 : PC7 
来 来 来 
FILE NAME: PC7 
10 INPUTN 
: DIMA(N),B(N),LN),RONI) 
20 FORI =1TON 
: A() = INT (100*RND (3)) 
: NEXT 
30 FORI =2TON 
:Z=1 
40 IFA(I >A(Z)THENGOTO 70 
50 IFL(Z)=0THENL(Z) = 工 
: GOTO 9%0 
60Z = L(Z) 
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70 


80Z 


120 


130 


: GOTO 40 
IFR(Z)=0THENR(Z)=I 
: GOTO 90 

= R(Z) 

: GOTO 40 

NEXT I 


:XXX=1 

IF L(Z) = 0THEN 120 
B(X) =2Z 
:X=X+1l 
:Z=LZ) 

: GOTO ji00 
PRINT A (Z)， 
:JIFR(Z)< >0OTHENZ = 了 RZI) 
: GOTO 100 

X=X 一 1 

:IFX =0THEN PRINTCHR $(7) 
: PRINT “OK ! 

: END 


140z = B(X) 


: GOTO 120 


22. 高 速 排序 


用 BASIC 指令 编 的 排序 程序 , 不 论 算法 怎么 精妙 , 但 总 
受 语言 解释 系统 的 限制 , 排序 速度 不 可 能 极 快 , 而 下 面 一 小 
段 机 器 语言 子 程序 却 能 使 排序 速度 大 大 提高 ,在 是 眼 之 间 200 
个 数据 排序 就 出 来 了 。 

(1) 使 用 方法 : 

输入 完 机 器 语言 子 程序 后 , 把 数据 总 数 送信 $ 06 单元 
( 少 于 255 个 ), 数据 从 $ 6001 开始 存放 , 然后 用 
CALL768($ 300) 调 用 , 结果 也 从 $ 6001 开始 存放 。 
同时 附 有 一 个 演示 程序 , 包括 产生 随机 数 、 调用 子 程序 打印 
结果 等 内 容 , 使 用 者 可 参考 它 进 行 编程 。 

(2) 注 意 事 项 : 

机 器 语言 子 程序 在 磁盘 中 文件 名 : SORT 

演示 程序 在 磁盘 中 文件 名 : SORT DEMO 


素 素 让 


FILE NAME; SORT. DEMO 
10 “POKE 6200 
: FORI = 1TO 200 
:A= INT (RND (1)*255) 
: PRINT A“”; 
: POKE 24576 + T,A 
: NEXT 
: PRINT 
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: GALL 768 


， FOR I 


1 TO 200 


: PRINT PEEK (24576 + 了 


: NEXT 


宋 


FILE NAME: SORT 


*300LL 
0300-- 。 A5 
0302 一 85 
0304--  C6 
0306-- 。A2 
0308 一 。E8 
0309 一 8A 
030A 一 Al8 
030B 一 C8 
030C 一 BD 
030F 一 D9 
0312--  B0 
0314 一 98 
0315 一 C5 
0317-- D0 
0319 一 8A 
031A 一 G5 
031C -DO0 
031E -60 
031F 一 48 


07 
EA 


2 8 


$006 
$07 
$07 
并 $00 


$6000,X 
$6000Y 
$031F 


$006 
$030B 


8$07 
$0308 


0320 一 ，B9 00 60  LDA  $6000Y 
0323 一 9D 00 60  STA $6000,X 
0326 一 68 PLA 

0327- 99 00 60 SSTA  $6000Y 
032A 一 .4C 14 03 JMP  $0314 


?3. 机 器 语言 排序 又 一 法 


前 面 一 个 机 器 语言 子 程序 是 用 选择 法 写 的 , 下 面 这 段 机 
器 语言 子 程序 则 是 用 气泡 法 写 的 , 这 两 种 算法 虽然 都 不 算 高 
明 , 但 机 器 语言 程序 运行 速度 之 快 使 得 它 比 前 面 的 排序 程序 
都 快 得 多 。 

这 个 程序 虽然 是 一 个 BASIC 程序 , 但 它 的 前 几 句 就 是 
建立 机 器 语言 程序 , 首 地 址 是 $ 2000 即 8192, 排序 数据 的 
个 数 放 在 $ 1FFF 即 8191 中 , 故 这 一 个 数 不 得 超过 255。 
这 些 数据 存放 在 $ 1000 即 4096 后 面 的 单元 中 , 也 不 能 超 
.过 25$5。 这 些 数 要 连续 存放 。 

(1) 使 用 方法 : 

键 人 BASIC 程序 后 , 直接 用 RUN 运行 , 见 到 “? ” 提 
示 符 后 输入 个 数 , 回 车 后 便 可 见 到 结果 。 

(2) 注 意 事项 : 

运行 此 程序 一 次 后 , 内 存 中 便 已 存 人 了 机 器 语言 程序 。 

本 程序 在 磁盘 中 的 文件 名 : PJQ 
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10 


15 


g 妆 十 当 忆 


加 名 己 


INPUT N: DIM A(N): POKE 8191， 
N 

DATA 169, 0 141, 254 31, 147 255 

，31 189 0 16 202 240 23 221， 
01616243188016 157 0 1i 

6 232 152 157 0 16 238 254 3 

1 202 76 8& 32 173, 254 31 208 
，214 % 

FOR I=0 TO 4 READ X 

POKE 8192 +I X NEXT 

FOR I=1 TO NAD) = INT (RND 
(D) * 100) 

POKE 40% + 工 AD: NEXT 


PRINT CHR$ (7): CALL 8192 PRINT 


CHRS (7) 

FOR I = 4097 TO 40% +N 
PRINT PEEK (DT),: NEXT 
DEL 15 30 


94. 大 批量 学 生 分 数 排序 


学 生 分 数 排序 是 很 常用 的 , 分 数 很 多 时 , 排序 速度 很 受 影 
响 。 由 于 考分 这 种 数据 多 取 整 数 , 又 有 一 个 固定 的 范围 , 即 
0 一 满分 值 , 利用 这 两 个 特点 可 以 把 算法 大 大 简化 。 下 面 这 
个 程序 就 能 针对 这 类 排序 数据 施展 威力 。 

(1) 使 用 方法 : 

键 人 并 运行 此 程序 , 见 到 “? "提示 符 后 输入 数据 个 数 , 回 
车 后 很 快 能 见 到 演示 的 排序 续 果 。 速 度 当然 比 其 它 BASIC 
排序 程序 都 快 。 

(2) 注 意 事 项 : 

在 实用 中 除 需 将 随机 模拟 数据 换 为 实际 数据 ， 还 要 根据 
满分 值 修 改 H 数组 和 了 数组 容量 等 , 例如 满分 为 400 的 整 
分 排序 中 H 和 了 E 数组 应 定义 为 DIMH% (400),E%% 
(400 ) 

本 程序 在 磁盘 中 的 文件 名 : PFS 


永 中 宁 
FILE NAME: PFS 
10 INPUTN 
: DIM A (N),B%(N),H(100), E(100) 
20 FORI =1TON 
: A(I) = INT (RND (1) * 100) 
30 IFH(A(D)) > 0THEN $0 


40 HA(D) =1 
: E(A(I)) =1I 
: GOTO 60 
50  B%(EA())) = 
: E(A(T)) =1I 
NEXT If 
FOR1iL =99TO 0STEP 一 1 
= HUD) 
IFZ =0THEN 110 
100 PRINT A (Z) 
:Z = B%(Z) 
: GOTO 90 
110 NEXTI 


当当 已 人 


25. 求 序号 


如 果 排 序 后 某 个 数 排 在 第 N 位 , 则 N 就 叫 这 个 数 的 序 
号 。 不 通过 排序 也 可 以 直接 求 序号 。 下 面 这 个 程序 很 适合 求 
学 生成 绩 的 序号 , 当然 也 适用 于 其 它 数 据 。 用 它 求 学 生成 绩 
序号 还 能 处 理 好 并 列 关 系 。 例 如 某 一 分 数 在 全 部 分 数 中 只 有 
两 个 比 它 大 , 则 它 的 序号 是 3, 又 恰 有 一 个 分 数 与 它 相 等 , 则 那 
个 分 数 序号 也 是 3, 接 下 去 的 分 数 序号 则 为 $ 而 不 是 4。 这 样 
处 理 恰好 符合 分 数 求 名 次 的 一 般 原则 。 

(1) 使 用 方法 : 

键 人 并 运行 此 程序 , 见 到 “? " 后 输入 数据 个 数 , 回 车 后 即 
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能 见 到 两 列 数字 , 左边 是 随机 模拟 产生 的 分 数 , 右边 是 该 分 数 
的 序号 。 

(2) 注 意 事 项 : 

本 程序 在 磁盘 上 的 文件 名 : PXH 


罕 宰 率 


FILE NAME: PXH 
10 INPUT N 
: DIMA(N), B(N) 
20 FORI =1TON 
: A(T) = INT (100*RND (3)) 
: B(U =1I 
: NEXT 
30 FORI= 1TON 
35 FORJ =1TON 
40 IFA(I) <A(J)THENB (IT) = 
B(D) +1 
S0 NEXT J,I 
60 ”FORI = 1TON 
: PRINT A(), B(I) 
70 NEXTI 
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96. 把 电子 工作 表 的 数据 取 入 BASIC 


中 华 学 习 机 和 苹果 机 有 一 个 二 维 表 格 软件 VISICALC 
即 电子 工作 表 。 该 软件 操作 灵活 方便 , 但 缺少 某 些 功 能 .为 此 ， 
该 软件 设置 了 一 种 D IF 文件 , 可 以 将 表格 内 容 存 人 其 中 供 其 
它 高 级 语言 使 用 。 但 这 种 文件 存 贮 格式 过 于 烦 锁 , 不 易 掌 
握 。 下 面 我 们 提供 的 这 个 程序 就 能 把 DIF 文件 读 人 
BASIC 语言 的 T1 数组 中 。 程 序 的 后 一 部 分 还 能 将 1 数 
组 的 内 容 写 人 一 个 DIEF 文件 , 从 而 实现 两 个 系统 间 的 数据 交 
换 。 对 于 一 些 软件 , 下 面 的 程序 将 会 直接 有 所 帮助 。 

(1) 使 用 方法 : 

键 和 人 或 从 磁盘 调 人 本 程序 后 , 直接 用 及 UN 运行 , 见 到 
提示 后 输入 DIE 文件 名 , 回 车 后 程序 开始 工作 , 读 DIF 文 
件 。 后 面 还 有 演示 存 DIEF 文件 的 程序 段 , 以 作 借鉴 。 

(2) 注 意 事项 : 

本 程序 在 磁盘 上 文件 名 : VC INTO BASIC 


站 审 半 


FILE NAME : VC INTO BASIC 


10 “REM 

20 REM 水 水 让 本 刘 率 水 永 永 水 本 杯 束 事 束 率 率 球 训 

30 ”REM* PROGRAM TO SORT  * 
40 REM * ADIF FILE 只 

SO REM 站 本 本 中 中 李 可 率 永 事 率 训 率 束 中 中 床 率 率 

60 ”REM 

70 “HOME 

80 


INPUT “MAME OF FILE:“;F $ 
232 


PRINT 


: PRINT 


GOSUB 1000 

GOSUB 300 
DIMTICT,V),T1$(V) 
PRINT 


: PRINT “READING FILE .,” 
,PRINT 


GOSUB 400 

GOS UB S00 

GOSUB 1200 

INPUT “A(LPHA O R N(UMERIC S 
ORT 2?"; A$ 

IF A$ < > “A7"AND A$< > 
“N7"THEN 170 

F$ =A$ +FS$ 

PRINT : PRINT “SORTINC FILE 
GOSUB 4000 


PRINT 


: PRINT “WRITING FILE .,” 


GOSUB 1100 
GOSUB 600 
GOSUB 1200 
PRINT 


:， 卫 RI N 下 “村 让 中 让 本 水 水 束 杯 来 本 束 床 / 


PRINT 
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510 


: PRINT “FILE“; F$ ; ”SAVED.” 


END 

REM 

了 EM  。 林 本 床 本 来 林 水 来 永 来 来 水 来 来 本 
REM * READ HEADER * 
及 下 M 站 率 本 让 本 李 素 训 素 求 冰 素来 来 率 


REM 

GOSUB 2000 

IF T$ =“VECTORS “THENV -= 
V2 

IFT $ ="TUPLES'THENT = YV 

2 一 1 


IFTS$ < >"DATA'THEN 310 
RETURN 

REM 

RR EM 。 本 中 机 下 率 率 素 永 率 来 率 素 束 永 


REM *READ STRINGS 站 
及 EM 。 汪汪 水 订 中 来 来 束 素 素 束 表率 素 冰 来 


REM 
GOSUB 2100 
FORI = 1ToY 
GOSUB 2100 
TI(D = S$ 
NEXT I 

RETURN 

REM 


及 下 M  。 李 本 本 本 本 来 可 本 素来 素 束 来 束 水 率 
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REM * READ HEIJIBERS 站 
及 JPRMI 站 让 池水 刘 宁 下 让 本 束 素 床 率 率 水 率 


及 M 

FORI= 1TTOT 
GOSUB 2100 
FORJ= 1TOYV 
GOSUB 2100 

T1 (IJ) = V2 
NEXT J 

NEXT I 

RETURN 

REM 


及 EM。 由 中 水 事 率 认 床 让 率 订 永 束 认 床 束 床 字 
REM * WRITE NEW FILE * 
REM * READER SECTION * 
REM。 本本 机 于 于 本 率 订 水 率 订 


及 下 M 
V1=0 
:8S$ = 多 
T$ =“TABLE" 
: V2=1 
: GOSUB 3000 
T$ = "VECTORS” 
: V2 =V 
: GOSUB 3000 


T$ = "TUPLES" 


:V2=T+1 
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830 


850 


: GOSUB 3000 


T$ = 三 "DATA" 


REM 三 三 王 王 一 王 王 王 三 一 王 一 


FORI = 1TTOV 
S$ =Tl$ (I) 


: GOSUB 3200 


FORI = 1TTOT 
GOSUB 900 
Vv1 =0 


， S$ 一 “ 汪 1 


FORJ = 1TOY 
V2 = TI(LJ) 


: GOSUB 3100 


NEXT J 
NEXT I 
V1= 一 1 


: V2 = 有 0 
: S$ = ”EOD” 


GOSUB 3100 


: 8S$ = "BOT" 


RETURN 


D$ = CHR$ (4) 
PRINT D$ ;”OPEN" ;下 $ 
PRINTD$ ;"READ';F$ 
RETURN 


REM 
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PRINT D$ ;OPEN'; F$ 
PRINT D$ ;WRITE4FS 
RETURN 

REM 一 一 一 一 一 一 二 一 二 一 


PRINT D$ CLOSE 
RETURN 


REM 三 = 三 一 一 一 一 三 一 三 一 
INPUT TY$ 

GOSUB 2100 

RETURN 

REM = 三 三 = 一 一 三 三 = 三 一 一 


计生 莹 二 天 受 芋 基 三 二 党 汉 
INPUT V LV2 

INPUT SS$ 

RETURN 

REM =========== 


REM =========== 
PRINT T$ 

GOSUB 3200 

RETURN 

REM =========== 


4100 
4110 
4120 


REM WRITE DATA ITEM 
REM WITHOUT QUOTES 


PRINT V1;“，”;， V2 

PRINT S $ 

RETURN 

REM =============== 
REM WRITE DATA ITEM 

REM WITH QUOTES 


REM === 王 = 三 = 王 = 三 = 一 一 = 一 
PRINT V1;”,”; V2 

PRINT CHR$ (34);S$; CHR$( 
34) 

RETURN 


REM 守 事 素 冰 来 来 求 来 来 冰冰 束 本 本 来 冰冰 


REM * SORT THE FILE >* 
有 REEM 闻 水 水 来 本 本 冰 事 环 来 求 来 水 可 冰冰 来 


REM RITRER BY THE FIWST 
REM TUPLE OR THE LIST . 


FORI=1TOV 一 1 
FORJ=1I+1TOV 


IF AS$ =“A"” THEN 4200 
REM 三 == 三 ======== 
REM MUMERIC SMAP 

REM = 一 ====== 一 一 一 一 
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IF TI(T，D < TI(T，J) THEN GOSUB 
4500 
GOTO 4240 


4500 


H$=TL$(DI) 
TI1$(I)=TI$(DJ) 
T1$(J) =Hy$ 
FORK = 1 TOT 

H = TI(K，D) 
TI(K, IT) = TL(K，J) 
TI(K, J) = H 
NEXT K 

RETURN 


97. 存 工 类 BASIC 程序 


磁盘 上 A 类 文件 是 BASIC 程序 ,用 LOAD 命令 调 人 
时 会 冲 掉 内 存 中 原 有 的 BASIC 程序 ,而 用 “EXEC 文件 名 ” 
命令 调 人 的 T 类 了 BASIC 程序 会 保留 床 内 存 中 程序 不 同行 
号 的 语句 。 这 种 BASIC 文件 会 在 下 面 两 方面 帮助 我 们 : 一 
是 用 BASIC 语言 写 的 处 理 BASIC 程序 的 工具 可 以 用 这 
种 方式 存 , 便于 调用 ， 本 文 的 程序 就 是 这 种 工具 程序 ， 二 是 
一 个 较 长 的 BASIC 程序 分 段 调试 存盘 , 每 段 可 存 一 T 类 文 
件 , 以 后 只 需 用 EXEC 命令 逐个 调 出 便 完 成 了 连接 与 合 
并 。 

(1) 使 用 方法 : 

键 和 人 本 程序 后 ,最 好 将 其 自身 也 存 一 个 T 类 文件 , 可 先 去 
掉 LIST 一 句 中 的 起 止 行 号 , 然后 用 有 RUN 运行 , 输入 文 
件 名 BASIC T.PILE' 回 车 后 便 已 存盘 。 以 后 使 用 时 , 先 
输入 待 存 程 序 , 然后 用 EXEC 调 人 本 程序 ,添上 LIST 一 句 
中 起 止 行 号 便 可 运行 了 。 将 待 存 程序 1 ~ 60000 行 号 的 语句 
存 为 你 指定 名 称 的 T 类 BASIC 程序 。 

(2) 注 意 事 项 : 
本 程序 磁盘 文件 名 : BASIC T. FILE 
率 率 床 
FILE NAME: BASIC T. FILE 
0 GOTO 61000 
61000 INPUT "FILE NAME? “; VS$ 
61010 PRINT CHR$ ( 4) ;” OPEN"; VS$ 
61020 PRINT CHR$ ( 4);”WRINT“; VS$ 
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61030 POKE 33,30 

61040 LIST 1,60000 

61050 PRINT CHR$ ( 4) ; ”CLOSE- 
61000 END 
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RENUMBER 程 序 使 用 说 明 


本 书 附带 的 磁盘 中 有 一 个 A 类 RENUMBER 程序 ， 
它 的 作用 主要 是 两 条 , 一 是 调整 BASIC 程序 的 行 号 分 布 , 二 
是 连接 或 合并 两 个 BASIC 程序 。 具 体 用 法 介绍 如 下 : 

一 、 调 整 程序 行 号 分 布 

先 将 待 调整 程序 存盘 , 然后 用 RUN 命令 运行 
RENUMBER 程序 ,屏幕 提示 的 三 种 色 命 令 的 用 法 中 第 
一 种 就 是 调整 行 号 的 。 这 种 用 法 最 多 可 带 四 个 参数 , 如 果 使 
用 时 省 略 了 其 中 的 一 个 或 几 个 , 则 该 参数 取 默 认 值 。 四 个 参 
数 及 默认 值 为 :FE= 10,I= 10,S= 0,E= 63999。E 代表 
调整 后 第 一 个 行 号 值 , I 代表 行 号 间隔 值 , S 代表 待 调整 范围 
的 最 小 行 号 , E 则 代表 待 调 整 范围 的 最 大 行 号 。 命 令 格 式 的 
第 一 个 字符 此 后 面 是 参数 标记 接着 该 参数 值 。 如 果 参 数 多 于 
一 个 , 参数 间 用 逗号 分 隔 。 

请 看 几 个 例子 : 调 人 待 调整 程序 后 ， 

&F0 表示 将 整个 程序 调整 为 首 行 号 0 间隔 10 

&S200,E300 表示 将 200 ~ 300 间 程 序 调 整 为 首 行 
号 10 间隔 10 

&FS,I20,S1000,E2000 表示 将 1000 至 2000 的 所 
有 语句 行 调整 为 首 行 号 5 间隔 20 。 

使 用 这 一 命令 常见 错误 为 : 调 出 的 新 行 号 与 调整 范围 之 
外 的 行 号 冲突 。 例 如 在 已 有 语句 10 时 用 &S 80 是 错误 命令 ， 
按 F 参数 默认 值 , 原 80 将 调 为 10, 行 号 发 生 冲 突 , 不 能 执 
行 。 

二 , 连接 或 合并 程序 
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不 妨 称 待 合并 的 两 个 程序 为 程序 一 和 程序 二 。 运 行 
RENUMBER 程序 后 ,屏幕 上 出 现 命令 使 用 方法 提示 , 其 
中 后 两 种 此 命令 就 是 为 合并 而 设置 的 。 这 时 任 按 一 键 会 出 现 
“]"BASIC 提示 符 , 调 人 程序 一 , 用 第 一 个 功能 调整 好 行 号 
分 布 , 然后 用 &H 命令 将 其 保护 。 接 着 用 LOAD 命令 调 人 
的 程序 二 会 进入 另 一 存 贮 区 , 即使 暂时 两 程序 行 号 净 突 也 不 
要 紧 , 这 时 使 用 功能 一 再 调整 好 程序 二 的 行 号 分 布 , 此 时 两 程 
序 不 应 再 有 行 号 冲突 。 然 后 用 &M 命令 解除 程序 一 的 保护 ， 
两 个 程序 便 合成 了 一 个 。 


244 


CHAIN 程序 使 用 方法 


用 RENUMBER 把 两 个 程序 连接 有 一 个 重要 前 提 ， 
即 两 程序 总 长 不 超出 内 存 。 当 这 一 条 件 不 满足 时 只 得 采用 另 
外 的 连接 方式 。 例 如 让 盘 上 的 程序 一 个 接 一 个 地 运行 达到 连 
接 目的 。 在 前 后 两 程序 无 需 传递 中 间 结 果 ( 如 变量 值 、 数组 等 ) 
时 , 直接 在 前 一 程序 尾 写 上 调 后 一 程序 的 DOS 命令 就 行 
了 。 但 前 后 程序 需 传 递 中 间 结 果 时 , 只 得 请 CHAIN 程序 
来 帮忙 了 。 本 书 附 带 的 磁盘 上 复制 了 这 一 程序 ， 

连接 的 方法 是 这 样 的 : 

在 前 一 个 BASIC 程序 的 最 后 三 行 写 上 : 

63970 PRINT 

63980 PRINT ”CHR$ (4); “BLOAD 
CHAIN,AS520” 

63990 CALL 520" 文 件 名 二 ” 

这 里 , 文件 名 二 是 后 一 个 程序 在 磁盘 上 的 文件 名 , 行 号 是 
虚设 的 。 

如 果 你 想 将 这 个 程序 复制 到 你 的 磁盘 上 , 可 以 借助 下 篇 
介绍 的 FE1D 程序 . 
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FID 程序 的 使 用 方法 


本 书 附带 的 磁盘 上 有 一 个 名 为 FID 的 B 类 文件 , 这 是 
一 个 管理 磁盘 的 多 功能 释 序 , 仅 介绍 如 下 : 

键 人 BRUN FID 后 ,屏幕 上 会 出 现 主 菜单 , 共 九 项 选 
择 : 

1 .文件 复制 

2. 列 磁盘 目录 

3, 测 定 磁 盘 已 使 用 和 未 使 用 的 扇 区 数 

4. 为 磁盘 文件 解锁 

5. 为 磁盘 文件 加 锁 

6. 删 除 磁盘 文件 

7. 重 新 设 定 工 作 驱动 器 

8. 检验 文件 存储 是 否 正确 

9. 退 出 FID 进入 BASIC 状态 

使 用 其 中 哪 一 项 就 按 哪 一 项 标号 并 回 车 。 使 用 一 些 项 时 
先 要 回答 驱动 器 接口 号 、 驱动 器 号 。 中 华 学 习 机 上 分 别 为 6 
和 1 。 程 序 完成 一 项 工作 后 , 按 任意 键 可 返回 主 菜单 , 准备 进 
行 下 一 项 服务 。 

先 从 简单 的 项 目 介绍 起 。 键 入 2 列 出 指定 驱动 器 的 盘 目 
录 , 与 DOS 命令 “CATALO G "等 效 。 键 人 3 屏幕 上 会 显 
示 指 定 驱 动 器 的 执 上 已 用 的 扇 区 数 和 未 用 的 扇 区 数 。 键 人 7 
再 按键 返回 主 菜单 , 表示 下 次 选项 后 可 以 重新 指定 驱动 器 。 
键入 9 便 可 结束 FID 的 运行 ,进入 BASIC 状态 。 

剩 下 的 五 种 服务 项 目 为 : 复制 、 解锁 .上 锁 . 删除 和 检查 。 
它们 对 文件 实施 的 处 理 虽 不 同 , 但 操作 过 程 大 致 相同 。 比 上 


246 


面 介 绍 的 四 项 稍 多 几 步 。 其 中 只 有 复制 一 项 需 回答 源 盘 和 复 
制 盘 的 驱动 器 接口 号 和 驱动 器 号 。 中 华 学 习 机 一 般 只 带 一 个 
驱动 器 , 所 以 可 两 次 回答 6 和 1, 然后 根据 提示 及 时 更 换 这 个 
驱动 器 中 的 源 盘 和 复制 盘 。.. 除 此 以 外 , 这 五 项 的 提示 和 操作 
基本 相同 ,在 “FILE NAME” 的 提示 询问 后 ,应 回答 要 处 
理 的 文件 名 。 回 答 时 可 以 给 一 个 具体 的 文件 名 , 也 可 以 用 
“=” 表 示 所 有 文件 ; 还 可 以 介 于 二 者 之 间 。 例 如 用 “= P ”" 表 
示 以 P 结尾 的 所 有 文件 名 ,用 “$S =” 表 示 以 $S 开头 的 所 有 文 
件 名 , 以 “= T = ”表示 所 有 含 T 的 文件 名 等 。 如 果 回 答 的 文 
件 名 代表 一 类 文件 名 , 还 需 用 立 或 N 表达 是 否 有 选择 地 处 
理 这 些 文件 。 回 答 N, 则 程序 自动 处 理 完 后 等 待 返回 主 菜单 ; 
回答 Y 后 , 盘 上 每 找到 一 个 符合 要 求 的 文件 名 就 显示 出 来 ， 
待 你 用 立 或 N 回答 是 否 进行 该 项 (这 五 项 中 你 选 定 的 项 ) 处 
理 , 立 代表 是 , N 代表 否 , 以 一 问 一 答 的 方式 完成 整个 处 理 过 
程 。 在 此 过 程 中 如 果 出 错 , 例如 删除 文件 上 锁 、 复制 同名 文件 
等 , FID 会 提示 或 询问 , 可 根据 需要 予以 回答 。 

如 果 磁 盘 未 满 ; 建议 用 FID 把 一 些 常 用 工具 如 
MOVE.RENUMBER、CHAIN 及 FID 本 身 复制 到 
你 的 盘 上 去 。 
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附录 


了 B 类 文件 首 地 址 及 长 度 
ICATALOG 
APPLE TOOL : 75 
*#B 002 KEYIN 本 卫 002 SCREEN EDITER 
(A$ 03001$ 00D9 ) (AS 03001$ 003D) 
*#B 003 MOVE #B 002 WRONG 
(AS$ 10101$ 011A) (AS$ 03001$ 003D) 
#B 008 SUPER KEYBOARD *B 002 SUPER SELECT 
(AS$ 800018$ 0680 ) (AS$ 0300LS$ 0076) 
+B 002 AUTO LINE #B 002 SEARCH RAM 
(AS$ 03001$ 0084 ) (AS$ 03001$ 0063 ) 
#B 002 NO SPACE LIST *B 003 SHUT BASICPRO 
(AS$ 0300.1$ 0032 ) (AS$ 94001$ 0109 ) 
*B 003 REM. REMOVER *$B 002 MUSIC KEY 
(AS$ 7800.I$ 01A4) (AS$ 0300.1$ 004A) 
# 了 B 002 HELP PRO #B 002 LO KC “C 
(A$ 03001$ 0053 ) (AS$ 03001S$ 002D) 
*#B 004 LINE TOOL #B 002 SET DOBSCREEN 
(AS$ 60001$ 023C) (AS$ 0300.1$ 00C8 ) 
*#B 002 PRINT LINE OF ERR # 了 B 003 SUPER REM 
(AS$ 0300.1S$ 0072 ) (AS$ 60001$ 0104) 
#B 002 RND READ $B 002 SCRN HIRE 
(AS$ 03001$ 0088 ) (AS$ 03001S 0024) 
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*B 002 MAKE F4，F5 

(A$ 0300I$ 002D ) 
#B 003 CEC-I CLOCK 

(A$ 08F0I$0170) 
+B 002 STRANGE SOUND 

(A$ 0300.1$ 001B) 
*yB 002 SOUND PRESS 

(A$ 03001$ 0045 ) 
*B 003 COMPRESS HIRE 

(AS$ 8000L$ OOFF ) 
*#B 002 MAKE TEXT 

(AS$ 0300L$ 0070 ) 

*B 002 CUT HIRE 

(AS$ 6000L$ 0064 ) 
*B 002 DRAW SUB 

(A$ 0300.L$ 0065 ) 
*#B 002 TEXT CLEAR 

(AS$ 0300L$ 0032 ) 
*B 002 TEXT CLEAR DOWN 

(Ag$ 0300.L$ 0080) 
*#B 002 TEXT R 一 世 

(AS$0300,L$ 0061) 
*B 002 TEXT U-D 

(A$ 0300L$ 006D ) 
*B 002 CLEAR HIRE U. D 

(A$ 0800.L$ 0046) 


*B 002 CLEAR HIRE <MID> 


(AS$ 0300,L$ 0046 ) 

*#B 002 CLEAR HIRE >MID < 
(A$ 0300L$004B ) 

*#B 002 CLEAR HIRE OR TUR 
(A$0300L$ 00BA ) 

*B 003 MOVE HIRE TOGETHE 
(A$ 6000L$ 013E ) 

#B 002 DISPLAY HIRE SPLA 
(A$ 6000L$ 00E0 ) 

*#B 002 DISPLAY HIRE WIND 
(A$ 0300,L$ 007A ) 

*#B 002 CLEAR HIRE MOVE L 
(AS$ 6000,L$ 006A ) 

*B 002 DISPLAY HIRE MOVE 
(AS$ 6000,LS$ 009A ) 

*#B 005 TUMEUP 
(AS$ 6000,L$ 039E ) 

*B 002 RND 
(A$ 6000,L$ 0064) 

*B 003 WAVE 
(A$ 6000,L$ 01CB) 

#B 002 TURN A PAGE 
(A$ 0300,L$ 00A8) 

*B 003 PRESS 一 CROSS 
(AS$ 9000,L$ OOFF ) 

*B 002 FAST JOIN 
(AS$ 6000,L$ 003B ) 
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*+B 002 TURN L--R 
(A$ 0300,L$ 0055) 
*B 002 TURN OVER 
(A$ 0300,L$ 0088 ) 
*B 002 ROLL HIRE L<R 
(A$ 0300,L$ 0077) 
*B 002 ROLL HIRE U<D 
(AS$ 0300L $ 0095) 
*B 022 LET HIRE* ./.&ACALL 
(A $ 0300L $ 0048) 
*B 002 LET HIRE* 4 
(AS$ .6000L $ 0088) 
*B 002 LET HIRE /4 


电 


(AS$ 7000L$ 0118) 
*B 002 DOS. AUTO. NAME 
(A 有 $ 0300L $ 00A9 ) 
#B 002 SUPER RENAME 
(A $ 94FSL $ 0057) 
*B 002 DISPLAY RWTS. IOB 
(A$ 9500L $ 0086) 
*B 002 FIND STRING IN DI 
(A$ 6100,L$ OOFC ) 
*B 002 SORT 
(A$ 0300,L$ 002D ) 
*B 003 CHAIN 
(A$ 0808,L$ 01C8 ) 


(A $ 6100L $ 008A)|*B 020 FID 


#B 003 GR COPY 
(AS$ 6000L $ 0134) 
*B 002 REGULAR LIST 


(A$ 0803,L$ 124E) 
*B 034 TITEL 
(A$ 4000L$ 2000) 


(A$ 0300L $ 00A8)|*B 034 PIC 


*B 002 PRIN T 16/LINE 
(A$ 0300L $ 0060) 
*B 003 PPRINT 
(A$ 90F3,L $ OOFF) 
*B 002 PRINT TURN 90 
(A$ 6000L $ 00E5) 
*B 002 VERIFY DISK 
(AS$ 0300L $ 009E) 


*B 003 ERR INTO CHINESE 


230 


(AS$ 4000.L8 2000) 


